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Pubiic  Law  has  directed  the  Department  of  Defense 
(DOD)  to  rehabiiitate  and  convert  its  existing  domestic 
power  piants  to  burn  more  coai.  Other  Federal 
legislation  requires  DOD  to  use  the  most  economic 
fuel  for  any  new  heating  system. 

This  five-volume  report  discusses  the  Central  Heating 
Plant  Economic  Evaluation  Program  (CHPECON),  a 
computer  program  for  screening  potential  new  and 
retrofit  steam/power  generation  facilities. 

Volume  1  is  the  Technical  Reference. 

Volume  2  is  the  User’s  Manual. 

Volume  3  is  the  Military  Base  Weather  Information 
Data  Management  Program. 

Volume  4  is  the  Coalfield  Properties  Information  Data 
Management  Program. 

Volume  5  is  the  Emission  Regulations  Data 
Management  Program. 

CHPECON  provides  screening  criteria  to  evaluate 
competing  combustion  technologies  using  coal,  gas,  or 
oil;  detailed  conceptual  facility  design  information; 
budgetary  facility  costs;  and  economic  measures  of 
project  acceptability  including  total  life  cycle  costs  and 
levelized  cost  of  service. 

The  program  provides  sufficient  flexibility  to  vary 
critical  design  and  operating  parameters  to  determine 
project  sensitivity  and  parametric  evaluation. 
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1  Introduction 


Background 

The  fiscal  year  (FY)  1986  Defense  Appropriation  Act  (Public  Law  [PLl-99-190)  Section 
8110  directed  the  Department  of  Defense  (DOD)  to  implement  the  rehabilitation  and 
conversion  of  central  heating  plants  to  coal  firing.  The  target  set  by  this  act  was  1.6 
million  short  tons*  of  coal  per  year  above  the  1985  consumption  level  by  1994.  The 
language  further  stated  that  300,000  tons  of  this  amount  should  be  anthracite  coal. 
The  purpose  of  this  Section  was  to  offset  decreasing  anthracite  coal  use  in  Germany 
resulting  from  U.S.  Army,  Europe  (USAREUR)  installations  connecting  to  district 
heating  systems.  The  FY  1987  Defense  Authorization  Act  (PL-99-661,  Section  1205) 
also  directed  that  the  primary  fuel  source  in  any  new  heating  system  be  the  most  life 
cycle  cost  effective.  To  assist  in  complying  with  these  acts,  the  U.S.  Army  Center  for 
Public  Works  (USACPW)  requested  that  the  U.S.  Army  Construction  Engineering 
Research  Laboratories  (USACERL)  provide  technical  studies  and  support  for  the 
Army’s  Coal  Conversion  Program. 


Objective 

The  objective  of  this  project  is  to  develop  a  series  of  screening  and  life  cycle  cost 
estimating  computer  models  to  determine  when  and  where  specific  coal  combustion 
technologies  can  be  economically  implemented  at  Army  central  heating  plants. 


Approach 

The  approach  for  providing  Coal  Conversion  Program  support  has  been  to  develop  tools 
useful  for  long  range  utility  planning  and  for  evaluating  both  the  technical  and 
economic  feasibility  of  conversion.  Cost  estimating  methods  have  been  developed  for 
building  new  coal,  gas,  or  oil  plants,  and  for  retrofitting  existing  plants  to  coal  firing 
capability.  Supporting  data  bases  have  been  developed  covering  installation-specific 
data  (heating  plant  inventory,  building  inventory,  weather  data,  energy  usage). 


A  metric  conversion  table  is  on  page  20. 
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environmental  regulations,  coal  supply  information,  and  combustion  equipment 
performance.  The  plant  sizes  examined  in  the  model  range  from  50,000  to  600,000 
pounds  per  hour  (Ib/hr)  with  individual  boiler  sizes  from  20,000  to  200,000  Ib/hr  of 
steam  or  high  temperature  hot  water  (HTHW).  The  program  is  divided  into  two  parts: 
the  preliminary  screening  model  and  the  detailed  cost  model.  The  screening  model  is 
used  to  initially  evaluate  each  plant  site  and  boiler  technology  option  to  produce  a  list 
of  the  promising  locations  and  technology  options.  The  screening  model  contains  five 
distinct  sections  for  evaluating  new  heating  plants,  retrofit  heating  plants,  cogen¬ 
eration  facilities  (in  hase-managed  and  third-party-managed  forms),  and  consolidation 
of  existing  multiple  hoiler  plants. 

The  new  heating  plant  screening  model  is  used  to  determine  if  a  new  coal  fired  heating 
plant  can  he  huilt  to  replace  an  existing  steam  plant  (150  pounds  per  square  inch 
gauge  [psig]  saturated  steam  or  equivalent  hot  water  or  250  psig  saturated  steam). 
The  hoiler  technology  options  include:  stoker,  bubbling  fluidized  bed,  circulating 
fluidized  bed,  coal/water  slurry,  coal/oil  slurry,  natural  gas,  and  #2  and  #6  fuel  oils. 

The  retrofit  screening  model  is  used  to  determine  if  the  existing  boilers  can  be 
retrofitted  to  fire  coal  or  low-British  thermal  unit  (Btu)  gas  supplied  from  a  gasifier. 
The  hoiler  options  include:  coal-water  slurry,  coal-oil  slurry,  micronized  coal,  slagging 
coal,  bubbling  fluidized  bed,  and  stoker,  as  well  as  gasification. 

The  cogeneration  screening  model  is  used  to  determine  if  a  new  cogeneration  steam 
plant  is  a  feasible  alternative  for  a  militeuy  base  heating  plant.  Medium  pressure  (600 
psig,  750  °F)  or  high  pressure  (1300  psig,  1000  °F)  plants  can  be  analyzed.  The  boiler 
t3q)es  considered  are  stoker,  coal-oil  slurry,  coal-water  slurry,  bubbling  fluidized  bed, 
and  circulating  fluidized  bed. 

The  consolidation  screening  model  is  used  to  determine  if  the  military  base  should 
consolidate  several  individual  heating  plants  into  one  main  heating  plant.  This  section 
assesses  whether  the  steam  distribution  density  is  sufficient  to  consider  consolidation 
as  a  practical  option. 

After  the  screening  model  has  been  executed,  the  user  has  the  option  to  quit  or  to 
restart  another  screening  model  (for  another  option)  or  to  continue  to  obtain  a  cost 
estimate  for  the  selected  facility.  The  costing  model  contains  sections  for  a  new 
heating  plant,  retrofit  heating  plant,  cogeneration  facility  (base  and  third  party),  and 
consolidated  facility. 
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The  costing  model  provides  conceptual  facility  design,  capital  installed  costs  of  the 
conceptual  facility,  operational  and  maintenance  costs  over  the  life  of  the  conceptual 
facility,  and  life  cycle  costs. 


Report  Organization 

This  report  discusses  the  Central  Heating  Plant  Economic  Evaluation  Program 
(CHPECON)  and  is  divided  into  the  following  five  volumes: 

Central  Heating  Plant  Economic  Evaluation  Program,  Volume  1:  Technical 
Reference. 

Central  Heating  Plant  Economic  Evaluation  Program,  Volume  2;  User’s  Manual 
Central  Heating  Plant  Economic  Evaluation  Program,  Volume  3;  Military  Base 
Weather  Information  Data  Management  Program 

Central  Heating  Plant  Eonomic  Evaluation  Program,  Volume  4: 
Coalfield  Properties  Information  Data  Management  Program. 

Central  Heating  Plant  Economic  Evaluation  Program,  Volume  5:  Emission 
Regulation  Data  Management  Program 


System  Requirements 

CHPECON  was  developed  using  an  80286  personal  computer  with  640K  memory,  and 

was  run  using  MS-DOS  3.3.  The  models  should  operate  satisfactorily  on  8088/80286/ 

80386  processors  with  MS-DOS  2.0  and  above.  The  program  is  written  in  dBase  III 

Plus  compatible  language  with  some  extensions.  To  provide  the  necessary  speed  and 

compactness,  the  program  is  distributed  in  compiled  form  using  Nantucket’s  Clipper 

* 

and  allows  stand-alone  opeation  without  requiring  additional  utilities. 


Scope 

The  purpose  of  this  work  is  to  investigate  the  feasibility  of  conversion  of  Army  central 
heating  plants  to  coal  firing.  The  models  developed  are  generally  applicable  to 
industrial  or  large  commercial  facilities.  The  economic  evaluation  program  for 
screening  and  life  cycle  costs  will  serve  as  a  tool  to  select  and  rank  potential  Army  sites 
for  coal  conversion. 


* 


dBASE  III  Plus  is  a  registered  trademark  of  Ashton-Tate,  and  Clipper  is  a  registered  trademark  of  Nantucket 
Software. 
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Mode  of  Technology  Transfer 

The  CHPECON  program  may  be  obtained  by  contacting  the  USACERL  Fuels  and 
Power  Systems  Team  at  1-800-872-2375,  extension  5551.  The  program  will  be 
transferred  to  Major  Army  Command  Headquarters  for  further  distribution.  It  is 
recommended  that  availability  of  this  program  and  the  information  presented  in  this 
report  be  disseminated  in  a  Public  Works  Technical  Bulletin. 
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2  The  COALFIELD  Program 

Introduction 

This  data  base  program  for  coal  field  properties  was  developed  to  support  an  overall 
program  for  stud5dng  coal  usage  at  continental  U.S.  Army  bases.  The  program, 
COALFIELD,  is  written  in  dBASE  III  Plus  and  can  be  used  as  a  stand-alone  program 
or  can  be  merged  with  the  overall  Central  Heating  Plant  Economic  Evaluation 
(CHPECON)  program.  The  stand-alone  capability  of  COALFIELD  eliminates  the  need 
to  reinstall  all  the  CHPECON  program  files  when  updating  the  coal  field  properties 
files.  In  support  of  CHPECON,  COALFIELD  maintains  the  file  from  which  the  coal 
program  draws  its  information  about  coal  fields.  In  use,  this  file  is  scanned  for 
suitability  with  the  user-selected  technology  (e.g.,  type  of  coal,  range  of  hemispherical 
temperatures),  and  for  locations  within  a  specified  distance  from  a  base. 

The  United  States  Geological  Survey  (USCS)  was  the  source  of  the  coal  properties 
data.  The  original  sample  size  consisted  of  over  6000  entries.  Noncoal  entries  were 
deleted  from  this  set,  as  were  entries  that  were  incomplete.  An  additional  pass 
through  the  data  was  required  to  eliminate  those  entries  that  were  outside  the  range 
of  consideration  for  this  research.  Duplicate  entries  (defined  as  the  same  latitude  and 
longitude)  were  then  eliminated.  The  resulting  database  has  over  2400  entries  from 
among  31  states. 


Information  Review 

Figure  1  shows  the  standard  display  for  the  coal  fields  properties  program.  All  the 
information  used  by  the  CHPECON  program  pertinent  to  a  coal  field  is  contained  on 
one  screen  divided  into  logical  sections.  The  area  within  the  box  is  the  coal  field 
information.  The  area  below  the  box  is  for  the  menu  prompts  and  display  of  program 
messages.  The  information  is  accessed  and  updated  through  this  menu.  To  select  an 
option,  press  the  capitalized  letter  in  the  option  description. 


Edit  field  <E>  permits  editing  of  the  displayed  coal  field. 
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Coal  field  location  Last  changed:  09/01/88 

State:  TN  -  Tennessee  Location:  PETROLEUMS  ENERGY  SERV  INC 

County:  MARION  Lat:  35“17‘42"  Long:  85“32'15" 

Proximate  Analysis 

Moisture:  3.50  X  (as  delivered) 

- (  dry  basis  ) - — 

Fixed  Carbon:  64.70  X  Volatile:  26.30  X  Ash: 

9.00  X 

Ultimate  Analysis  --  (dry  basis) 

Carbon:  78.10  X  Hydrogen:  4.70  X  Nitrogen: 

Sulfur:  0.60  X  Oxygen:  6.00  X 

1.60  X 

Mi  seel laneous 

Gross  Calorific  Value  (dry):  13750  Btu/lb  Rank:  B 

Hemispherical  Temperature:  2804  ”F  (H='/iU,  reducing) 

Hardgrove  Grindability  Index:  0.0  Free  Swelling  Index:  4.5 

Code  Number:  U193643 

Note: 

Edit  field  /  Add  field  /  move  Forward  /  move  Backward 
Delete  field  /  change  Views  /  Print  field  list  /  Quit 
Option  (E/A/F/B/D/V/P/Q)  «  » 

Figure  1 .  Screen  display  for  detailed  view  of  coal  field  information. 

Add  field  <A>  adds  a  blank  field  entry,  then  goes  to  the  editing  subroutine  to  allow 
entering  the  correct  values  for  a  new  coal  field. 

Move  Forward  <F>  displays  the  next  coal  field  (as  if  flipping  through  a  card  file) 
until  the  end  is  reached. 

Move  Backward  <B>  displays  the  previous  coal  field  (moving  toward  the  beginning 
of  the  file)  imtil  the  first  entry  is  reached.  The  entries  in  the  file  are  arranged  by 
state. 

Delete  field  <D>  causes  the  field  currently  displayed  to  be  eliminated  from  the  file. 
The  information  that  was  entered  is  lost.  As  a  check,  you  are  asked  to  confirm 
the  decision  to  delete  a  coal  field. 

Change  Views  <V>  switches  to  a  display  that  shows  less  information  about  an 
individual  field  but  allows  many  fields  to  be  displayed  at  one  time.  This  is 
discussed  in  detail  below. 

Print  a  field  list  <P>  allows  you  to  print  entries  from  the  coalfield  data  base. 
Selecting  this  option  brings  up  another  prompt,  asking  if  you  want  to  print  the 
displayed  entry,  the  entries  for  a  single  state,  all  entries,  or  quit  and  return  to 
the  main  screen  without  printing.  If  you  request  printing  of  the  displayed  field 
or  all  fields,  the  program  begins  printing.  If  you  request  to  print  by  state,  the 
program  asks  for  the  name  or  abbreviation  of  the  state.  After  answering  the 
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prompt  for  the  state,  the  program  begins  printing.  An  example  of  the  printed 
information  is  shown  in  Figure  2. 

Quit  <Q>  returns  you  to  the  previous  menu,  if  the  program  was  run  as  part  of  the 
overall  program  set,  or  returns  to  the  operating  system,  if  the  program  was  run 
as  a  separate  module. 

Changing  the  view  from  the  detailed  display  of  the  coal  field  information  brings  up  a 
display  showing  many  coal  field  entries  per  screen,  but  less  information  about  each 
coal  field.  An  example  of  the  display  is  presented  in  Figure  3.  The  menu  options  are 
the  same  as  for  the  detailed  display;  however,  they  work  somewhat  differently. 

“Editing  a  field  <E>”  requires  you  to  first  indicate  which  entry  should  be  edited  out  of 
the  list  displayed,  then  proceeds  as  before.  Use  the  up-  and  down-arrow  keys  on  the 


Coal  field  information  printout  for:  HI  -  Michigan 


-  09/19/88 


Location:  Last  changed:  09/01/88 

County:  INGHAM  Lat:  42d  40m  53s  Long:  84d  16m  14s 

Proximate  Analysis  Moisture:  13.30  X  (as  delivered) 

Fixed  Carbon:  56.10  X  Volatile:  41.90  X  Ash:  2.00  X  (dry  basis) 
Ultimate  Analysis  --  (dry  basis) 

Carbon:  80.10  X  Hydrogen:  5.30  X  Nitrogen:  1.70  X 

Sulfur:  1.20  X  Oxygen:  9.70% 

Miscellaneous 

Gross  Calorific  Value  (dry):  14310  Btu/lb  Rank:  B 

Hemispherical  Temperature:  0  F  (H=1/2W,  reducing) 

Hardgrove  Grindability  Index:  0.0  Free  Swelling  Index:  0.0 

Code  Number:  0172593 

Note: 


Last  changed:  09/01/88 
42d  40m  56s  Long:  84d  16m  14s 
Moisture:  10.30  X 
40.20  X  Ash:  2.90  X  - 


Lat: 


Nitrogen:  1.60  X 


Location; 

County:  INGHAM 

Proximate  Analysis 

Fixed  Carbon:  56.90  X  Volatile: 

Ultimate  Analysis  --  (dry  basis) 

Carbon:  78.00  X  Hydrogen:  5.20  X 

Sulfur:  1.30  X  Oxygen:  11 .00  % 

Miscellaneous 

Gross  Calorific  Value  (dry):  14080  Btu/lb  Rank:  B 

Hemispherical  Temperature:  0  F  (H=1/2W,  reducing) 

Hardgrove  Grindability  Index:  0.0  Free  Swelling  Index:  0.0 
Code  Number:  D172594 
Note: 


(as  delivered) 
--  (dry  basis) 


Last  changed:  09/01/88 
Lat:  42d  44m  56s  Long:  84d  45m  46s 
Moisture:  18.60  X  (as  delivered) 
40.90  X  Ash:  7.10  X  ---  (dry  basis) 


Nitrogen:  1.40  X 


Location: 

County:  INGHAM 

Proximate  Analysis 

Fixed  Carbon:  52.00  X  Volatile: 

Ultimate  Analysis  --  (dry  basis) 

Carbon:  73.40  X  Hydrogen:  5.00  X 

Sulfur:  1.70%  Oxygen:  11.40  X 

Mi  see I laneous 

Gross  Calorific  Value  (dry):  13100  Btu/lb  Rank:  B 

Hemispherical  Temperature:  0  F  (H=1/2W,  reducing) 

Hardgrove  Grindability  Index:  0.0  Free  Swelling  Index:  0.0 
Code  Number:  D172595 
Note: 


Figure  2.  Example  of  coal  field  information  printout. 
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Coal  Field  Information  Management  Program  09/20/88 

Condensed  View  of  Coal  Fields 


state 

Rank 

County 

Location 

PA 

B 

ELK 

STRIP  MINE 

PA 

B 

ELK 

STRIP  MINE 

TN 

B 

MARION 

ALLEN  COAL  CO 

TN 

B 

GRUNDY 

FOUR  SEASONS  COAL  CO 

TN 

B 

MARION 

PETROLEUMS  ENERGY  SERV  INC 

TN 

6 

BLEDSOE 

PIONEER  COAL  CO 

TN 

B 

SEQUATCHIE 

SOUTHERN  ENERGY  RES  CO 

TN 

B 

BLEDSOE 

LUCKY  CUMBERLAND  COAL  CO 

TN 

B 

BLEDSOE 

LAMB  CREEK  COAL  CO 

TN 

B 

BLEDSOE 

SAUNDERS  COAL  CO 

TN 

L 

LAUDERDALE 

STATE  PRISON  FARM 

TN 

B 

ANDERSON 

JACKSON  MINING  CO 

TN 

B 

MORGAN 

G&B  COAL  CO 

Edit  field  /  Add  field  /  move  Forward  /  move  Backward 
Delete  field  /  change  Views  /  Print  field  list  /  Quit 
Option  (E/A/F/B/D/V/P/Q)  «  » 


Figure  3.  Screen  display  for  condensed  view  of  coal  field  information. 


cursor  ke3rpad,  then  press  “E”  when  the  pointer  is  at  the  desired  field.  You  can  also 
quit  from  the  editing  pointer  display  back  to  the  main  menu.  “Adding  <A>”  is  the 
same  in  that  a  blank  entry  is  created,  then  the  program  switches  to  editing  the  blank 
entry  to  place  the  information  in  the  file. 


Moving  “Forward  <F>”  and  “Backward  <B>”  moves  up  or  down  one  screen  at  a  time; 
since  many  coal  fields  are  displayed,  this  allows  quicker  movement  through  the  file. 

“Deleting  a  field  <D>”  requires  you  to  first  indicate  which  entry  should  be  deleted. 
Deleting  in  this  view  also  requires  a  confirmation,  as  did  deleting  in  the  detailed  view. 
“Changing  Views  <V>”  in  this  view  moves  you  back  to  the  detailed  view. 


“Print  a  field  list  <P>”  is  the  same  as  before,  as  is  Quit  <Q>”. 
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3  Information  Editing 


The  information  displayed  in  the  detailed  view  (Figure  1)  is  divided  into  logical 
sections  within  the  hox.  The  first  section  is  the  coal  field’s  location.  The  location  field 
should  contain  the  actual  name  of  the  mine  (preferred)  or  a  description  of  the  type  of 
site.  The  last  changed  date  is  displayed,  but  is  not  directly  changed.  When  a  field’s 
data  is  edited,  or  when  it  is  first  added,  the  last  changed  date  is  automatically  updated 
to  the  current  date  in  the  computer  system’s  clock.  The  latitude  displayed  is  the  north 
(assumed)  latitude  of  the  coal  field  in  the  format  DDD'’MM’SS",  where  DDD  is  in 
degrees,  MM  is  in  minutes,  SS  is  in  seconds.  The  longitude  displayed  is  the  west 
(assumed)  longitude  of  the  coal  field  in  the  same  DDD°MM  SS  format. 

The  next  boxed-in  area  of  the  detailed  view  contains  the  coal’s  proximate  analysis.  The 
moisture  fraction  of  the  coal  is  for  the  coal  as  delivered,  in  percent,  from  the  proximate 
analysis  laboratory  results.  The  next  three  values  are  for  the  coal  on  a  dry  basis,  as 
noted  on  the  screen.  The  values,  in  percent,  are  for  the  fractions  of  fixed  carbon, 
volatiles,  and  ash  in  the  coal.  The  total  of  these  three  values  must  equal  100  percent. 
If  the  sum  of  the  values  does  not  equal  100  percent,  a  message  is  displayed  on  the  right 
side  of  the  screen.  If  you  ignored  this,  the  program  displays  a  message  that  it  cannot 
proceed  when  the  data  screen  is  completed,  instead  of  the  prompt  for  whether  the 
information  entered  should  be  accepted. 

The  next  boxed-in  area  is  for  the  ultimate  analysis  of  the  coal,  on  a  dry  basis.  The 
values,  in  percent,  are  for  the  fractions  of  carbon,  hydrogen,  nitrogen,  sulfur,  and 
oxygen  in  the  coal.  These  five  values  and  the  ash  value  should  total  100  percent.  In 
the  same  manner  as  the  proximate  analysis,  if  the  values  do  not  equal  100  percent,  a 
message  is  displayed  on  the  right  side  of  the  screen.  If  this  message  is  ignored,  the 
program  stops  at  the  end  of  the  entries  with  the  longer  message  that  the  ultimate 
analysis  values  do  not  total  100  percent.  It  is  possible  that  both  the  proximate  and 
ultimate  totals  will  not  equal  100  percent  due  to  an  erroneous  ash  value  entry. 

The  values  in  the  miscellaneous  box  describe  the  coal  in  more  general  terms.  The 
gross  calorific  value  (heating  value  on  a  dry  basis)  is  in  Btu/lb  of  coal.  The  expected 
range  is  from  5,000  to  20,000  Btu/lb.  The  rank  is  the  general  type  of  coal.  Acceptable 
values  to  the  program  are:  B  (bituminous),  SB  (sub-bituminous),  L  (lignite),  A 
(anthracite),  and  SA  (semi-anthracite).  The  program  continues  to  prompt  until  one  of 
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these  values  is  entered.  The  hemispherical  temperature  is  the  value  defined  by  height 
=  (0.5)  X  (width)  in  a  reducing  environment,  in  degrees  Fahrenheit.  Acceptable  values 
are  from  1000  to  3500  °F.  The  Hardgrove  Grindability  Index  has  an  acceptable  value 
range  of  from  20  to  120.  The  Free  Swelling  Index  has  an  acceptable  value  range  of 
from  0  to  9.  The  code  number  is  a  unique  number  given  to  the  entry  for  later 
identification;  it  is  alphanumeric,  with  a  check  made  on  the  uniqueness  of  the  entry. 
In  the  case  of  the  original  data,  the  code  number  is  the  USGS  number  assigned  to  the 
entry.  The  note  contains  any  additional  information  that  should  be  recorded  about  the 
coal  field.  For  example,  the  note  could  indicate  that  this  coal  field  is  the  one  used  by 
a  certain  base,  or  that  the  reserves  of  the  coal  field  are  limited.  An3d;hing  that  may  be 
useful  in  deciding  to  use  a  coal  field  should  be  placed  in  the  note  space. 

For  some  of  the  information  about  a  coal  field,  a  value  of  0  can  be  entered  instead  of 
a  value  in  the  expected  range.  This  has  been  provided  for  the  times  when  some  of  the 
values  are  not  yet  known.  However,  the  proximate  analysis,  the  gross  calorific  values, 
and  the  latitude  and  longitude  must  be  entered.  Table  1  summarizes  the  error 
checking  in  the  program. 


Table  1.  Summary  of  error  checking  on  entered  data. 


Information 

Acceptable  Values 

State 

Must  be  one  of  the  50  states. 

Location 

No  error  checking  implemented.  Can  be  a  blank  entry. 

County 

No  error  checking  implemented.  Can  be  a  blank  entry. 

Latitude 

The  latitude  must  be  in  the  format  DDD°MM'SS",  where  ODD  is  in  degrees, 

MM  is  in  minutes,  SS  is  in  seconds.  ODD  must  be  in  the  range  from  25  to 

72.  MM  and  SS  must  be  a  value  of  00  to  59,  inclusive. 

Longitude 

The  longitude  must  be  in  the  format  DDD°MM'SS'',  where  DDD  is  in  degrees, 
MM  is  in  minutes,  SS  is  in  seconds.  DDD  must  be  in  the  range  from  63  to 

172°.  MM  and  SS  must  be  a  value  of  00  to  59,  inclusive. 

Moisture 

Moisture  fraction  of  the  coal  should  be  in  the  range  of  0  to  60  percent, 

inclusive. 

Fixed  Carbon 

Fraction  of  fixed  carbon  in  the  coal  must  be  in  the  range  of  20  to  99  percent, 
inclusive.  Total  of  fixed  carbon,  volatiles,  and  ash  must  equal  100  percent. 

Volatiles 

Fraction  of  volatiles  in  the  coal  must  be  in  the  range  of  0  to  60  percent, 
inclusive.  Total  of  fixed  carbon,  volatiles,  and  ash  must  equal  100  percent. 

Ash 

Fraction  of  ash  in  the  coal  must  be  in  the  range  of  0  to  50  percent,  inclusive. 
Total  of  fixed  carbon,  volatiles,  and  ash  must  equal  1 00  percent. 

Carbon 

Fraction  of  carbon  can  have  a  value  from  20  to  99  percent,  inclusive.  Total 
of  carbon,  hydrogen,  sulfur,  oxygen,  nitrogen  (ultimate  analysis),  and  ash 
from  proximate  analysis  must  equal  100  percent. 
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Information 

Acceptable  Values 

Hydrogen 

Fraction  of  hydrogen  can  have  a  value  from  0  to  30  percent,  inclusive.  Total 
of  carbon,  hydrogen,  sulfur,  oxygen,  nitrogen  (ultimate  analysis),  and  ash 
from  proximate  analysis  must  equal  1 00  percent. 

Sulfur 

Fraction  of  sulfur  can  have  a  value  from  0  to  20  percent, 

inclusive.  Total  of  carbon,  hydrogen,  sulfur,  oxygen,  nitrogen  (ultimate 

analysis),  and  ash  from  proximate  analysis  must  equal  100  percent. 

Oxygen 

Fraction  of  oxygen  can  have  a  value  from  0  to  50  percent,  inclusive.  Total  of 
carbon,  hydrogen,  sulfur,  oxygen,  nitrogen  (ultimate  analysis),  and  ash  from 
proximate  analysis  must  equal  100  percent. 

Nitrogen 

Fraction  of  nitrogen  can  have  a  value  from  0  to  30  percent,  inclusive.  Total 
of  carbon,  hydrogen,  sulfur,  oxygen,  nitrogen  (ultimate  analysis),  and  ash 
from  proximate  analysis  must  equal  1 00  percent. 

Gross  Calorific  Value 

Heating  value  must  be  in  the  range  of  5,000  to  20,000  Btu/lb,  inclusive. 

Rank 

The  rank,  or  type,  of  the  coal  must  be  one  of  the  following  five  values: 

B  =  bituminous 

SB  =  sub-bituminous 

L  =  lignite 

A  =  anthracite 

SA  =  semi-anthracite 

Hemispher.  Tempera¬ 
ture 

Hemispherical  temperature  of  the  coal  (defined  as  height  =  0.5  x  width)  is  in 
the  range  of  1000  to  3500  °F,  inclusive,  or  0  if  no  value  is  known. 

Hardgrove 

Grindability 

Index 

The  index  must  be  in  the  range  of  20  to  120,  inclusive,  or  0  if  no  value  is 
knovirn. 

Free  Swelling  Index 

The  index  must  be  in  the  range  of  0  to  9,  inclusive,  with  0  either  a  real  value 
or  representative  of  no  value  know. 

Code  Number 

The  code  number  must  be  a  unique  entry  in  the  data  base.  It  cannot  be  a 
blank  entry. 

Note 

No  error  checking  implemented.  Can  be  a  blank  entry. 
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4  Program  and  Data  Listing 


The  listing  of  the  program  segments  is  contained  in  Appendix  A  of  this  report.  A 
listing  of  the  information  stored  in  the  coal  field  data  base  from  the  USGS  data  is 
contained  in  Appendix  B  of  this  report.  The  file  structure  of  COALFIEL.DBF  is  shown 
in  Table  2.  The  individual  data  base  fields  are  updated  through  the  coal  field 
information  screen,  as  described  earlier. 

Two  data  base  fields  used  by  CHPECON  have  been  added  that  specifically  require 
storing  information  about  coal  fields.  SLCTD  (selected)  is  a  logical  field  that  is  set 
TRUE  or  FALSE  based  on  whether  the  coal  field  has  been  selected  by  CHPECON 
based  on  the  distance  it  is  from  the  military  base  that  is  being  studied.  BIST  FROM 
is  the  distance  in  miles  that  the  coal  field  is  from  the  military  base.  This  value  is 
displayed  as  part  of  the  acceptable  coal  fields  display  when  you  are  given  the 
opportunity  to  review  before  selecting  one  coal  field  for  use  of  its  properties  in  the 
emissions  and  technology  analysis  of  CHPECON. 


Table  2.  Structure  for  data  base  file  COALFIEL.DBF. 


Field 

Field  Name* 

Field  Type 

Field 

Width 

Decimal 

Width 

1 

State 

Character 

2 

2 

County 

Character 

23 

3 

Location 

Character 

30 

4 

Last  Chg 

Date 

8 

5 

Latitude 

Numeric 

7 

6 

Longitude 

Numeric 

7 

7 

Moisture 

Numeric 

6 

2 

8 

Volatile 

Numeric 

6 

2 

9 

Fixed  Crbn 

Numeric 

6 

2 

10 

Ash 

Numeric 

6 

2 

11 

Rank 

Character 

5 

12 

HHv  Dry 

Numeric 

6 

13 

Hrdgrv  Grd 

Numeric 

5 

1 

14 

Free  Swell 

Numeric 

4 

1 
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15 

Aft  S 

Numeric 

5 

16 

Carbon 

Numeric 

5 

17 

Hydrogen 

Numeric 

5 

18 

Sulfur 

Numeric 

5 

19 

Oxygen 

Numeric 

5 

20 

Nitrogen 

Numeric 

5 

21 

Code  No 

Character 

20 

22 

Cmmnt 

Character 

65 

23 

SIctd 

Logical 

1 

24 

Dist  From 

Numeric 

5 

‘Field 

Description 

Location 

Either  the  name  of  the  mine  or  a  description  of  the  type  of  mine. 

County 

County  in  which  the  coal  field  is  located. 

Code  Number 

A  unique  number  given  to  the  entry  for  later  identification.  (In  the  case  of 
the  original  date,  this  is  the  USGS  number  assigned  to  the  entry.) 

Latitude 

The  north  latitui^e  of  the  coal  field  in  the  format  DDDMMSS,  where  DDD 
is  in  degrees,  MM  is  in  minutes,  SS  is  in  seconds. 

Longitude 

The  west  longitude  of  the  coal  field  in  the  format  DDDMMSS,  where 

DDD  is  in  degrees,  MM  is  in  minutes,  SS  is  in  seconds. 

Rank 

The  rank,  or  type,  of  the  coal: 

B  =  bituminous 

SB  =  sub-bituminous 

L  =  lignite 

A  =  anthracite 

SA  =  semi-anthracite 

Htg  Val 

Heating  value  of  the  dry  coal  in  Btu/lb. 

Last  Chg 

Date  the  entry  was  last  changed. 

Moisture 

Moisture  fraction  of  the  coal  as  delivered,  in  percent,  from  the  proximate 
analysis. 

Voiatiies 

Fraction  of  volatiles  in  the  coal  on  a  dry  basis,  in  percent,  from  the 
proximate  analysis. 

Fixed  Carbon 

Fraction  of  fixed  carbon  in  the  coal  on  a  dry  basis,  in  percent,  from  the 
proximate  analysis. 

Ash 

Fraction  of  ash  in  the  coal  on  a  dry  basis,  in  percent,  from  the  proximate 
analysis. 

Carbon 

Fraction  of  carbon  in  the  coal  on  a  dry  basis,  in  percent,  from  the  ulti¬ 
mate  analysis. 

Hydrogen 

Fraction  of  hydrogen  in  the  coal  on  a  dry  basis,  in  percent,  from  the 
ultimate  analysis. 
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Oxygen 


Nitrogen 


Hardgrove 
Free  Swell 
Hemi  Temp 


Description  _ _ 


Fraction  of  sulfur  in  the  coal  on  a  dry  basis,  in  percent,  from  the  ultimate 
analysis. 

Fraction  of  oxygen  in  the  coal  on  a  dry  basis,  in  percent,  from  the  ulti¬ 
mate  analysis. 

Fraction  of  nitrogen  in  the  coal  on  a  dry  basis,  in  percent,  from  the 
ultimate  analysis. 

Hardgrove  grindability  index  of  the  coal. 

Free  swelling  index  of  the  coal. 

Hemispherical  temperature  of  the  coal,  in  °F;  defined  as  the  softening 
temperature  at  which  H=1/2W _ _ _ 
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5  Program  and  Data  Installation 


The  stand-alone  nature  of  COALFIELD  requires  that  it  he  installed  as  an  independent 
entity  before  use,  even  if  it  will  be  used  only  as  part  of  CHPECON.  One  disk  contains 
the  programs  and  empty  data  files  for  COALFIELD.  The  installation  consists  of 
copying  the  disks  to  a  suitable  subdirectory  on  a  hard  disk  of  the  computer  that  will 
be  used.  When  the  COALFIELD  program  is  run,  it  will  automatically  create  the  index 
files  it  needs.  However,  at  this  point  the  index  files  will  be  blank. 

The  COALFIELD  data  base  itself  is  larger  than  a  standard  360k  floppy  disk  when  it 
contains  the  information  generated  in  this  project.  Because  of  this,  an  additional 
program  has  been  provided  that  manages  the  process  of  handling  small  files  that  will 
fit  on  360k  floppies,  called  COALBLD.  COALBLD  is  a  standalone  program  with  a 
menu  of  three  options; 

Adding  to  COALFIEL.DBF  will  cause  COALBLD  to  look  for  data  files  named 
COALFL##.DBF,  where  ##  can  vary  from  1  to  99.  COALFIEL.DBF  can  be 
optionally  cleared  (previous  information  removed)  before  adding,  and  index  files 
are  rebuilt  if  any  additions  are  made.  COALBLD  will  use  the  data  structure  of 
the  first  data  file  that  is  found  to  create  COALBLD  .DBF  if  COALFIEL.DBF  is 
not  initially  present.  COALBLD  will  look  only  in  the  current  drive/directory  for 
COALFIEL.DBF  and  COALFL##.DBF. 

Splitting  COALFIEL.DBF  will  produce  the  small  data  files  that  are  looked  for  by 
COALBLD  during  the  adding  process.  COALBLD  will  inform  you  if  it  cannot 
find  COALFIEL.DBF.  It  will  erase  any  previous  small  data  files,  leaving  only 
the  current  ones  on  the  directory. 

Quitting  will  end  COALBLD. 

To  use  COALBLD  to  place  all  available  data  into  the  COALFIEL.DBF  data  base  file, 
first  copy  all  available  disks  to  the  directory  where  COALFIELD  is  installed.  Then 
start  CO  AT. BID  and  select  the  adding  option.  To  split  the  COALFIEL.DBF  apart, 
start  COALBLD  and  select  the  splitting  option.  The  individual  files  can  then  be  copied 
to  floppies  or  other  media  for  transfer  to  another  system. 
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6  Running  COALFIELD 


To  run  COALFIELD  as  a  stand-alone  program,  you  must  know  the  program’s 
environment. 

1.  If  nm  under  dBASE  III  or  a  compatible  interpreter  (like  FoxBase  ),  start  dBASE, 
then  enter  the  command  DO  COALFIEL,  and  press  the  <RETURN>  key. 

2.  If  run  as  a  compiled  program  (like  Clipper  ),  from  the  DOS  prompt  (or  similar), 
enter  the  command  COALFIEL,  and  press  the  <RETURN>  key. 

Exiting  the  program  will  return  you  to  the  level  that  called  it — the  dot  prompt  if  in 
dBASE  or  FoxBase,  and  the  DOS  prompt  if  in  Clipper. 


Metric  Conversion  Table 


1  in. 

= 

25.4  mm 

1  sq  in 

= 

6.452  cm^ 

1  psi 

= 

6.89  kPa 

1  psi 

= 

89.300  g/cm^ 

1  lb 

= 

0.453  kg 

1  Ib/hr 

= 

0.126  g/s 

1  cu  ft 

= 

0.028  m^ 

1  sq  ft 

= 

0.093  m^ 

°F 

= 

(‘’C  + 17.78)  X  1.8 

1  Btu/lb 

= 

0.556  cal/g 

1  ton 

= 

907.185  kg 

FoxBase  is  a  registered  trademark  of  Fox  Software,  Inc. 
Clipper  is  a  registered  tademark  of  Nantucket  Software. 
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Appendix  A:  Program  Listing 


01-11-89  15:00:00  CHKSTAT2.PRC 
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-  CHKSTAT2.PRC  --  Last  Update  01/11/89 

-  Copyright  (c)  1988,1989  by  John  A.  Kinast 
-All  Rights  Reserved 

-  written  for  CERL 


-  attempt  to  decipher  state  entry,  detailed  analysis 

««»••««•••«•*•«**••**«*••«*»•««**«•**«***•••**«************** 


*  convert  state  entry  to  upper  case,  set  up  length  and  flag 
St=UPPER(LTRIM(TRIM(st))) 

St  I n  =  LEN(st ) 
s  1 1  s  t  =  ■■  ■■ 


s  tn=  '■ " 
ok= .  f . 


•  if  entry  is  two  characters, 

•  check  to  see  if  it  is  proper  state  abbreviation 
+-- IF  St ln=2 

I  CXD  idstate 

+--ENDIF 

•  if  State  found,  stist  has  name,  routine  can  return  from  here 
+--1F  LEN(StlSt)>0 

I  '  stn=st 

I  ok= . t . 

I  RETURN 

+--ENDIF 

*  if  length  is  0  (no  entry),  set  name  to  special  code 

+  -- I F  s  1 1 n  =  0 

I  s  1 1  s  t  = "  -  -  ,  -  - " 

I  ok=  .  t . 

+--ENDIF 

*  if  nothing  has  been  found,  try  matching 

*  first  letters  of  entry  with  state  names 
+  --CX)  WHILE  .NOT.  Ok 

I 

I  +--IF  'ALABAMA'=St 
1  I  St  I  st  =  st  I  st+ '  ,  Alabama' 

I  I  stn='AL' 

I  +--ENDIF 

I  +--IF  'ALASKA'=st 

II  St  I st  =  st I st  +  '  ,  Alaska' 

I  I  stn='AK' 

I  +--ENDIF 

I  +--IF  'ARKANSAS'=St 

I  I  stlst=stlst+',  Arkansas ' 
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I  stn='AR' 

+--ENDIF 

+--IF  'ARIZONA'=St 
I  St  I st  =  st I st  +  ' ,  Ar i zona' 

I  stn='AZ' 

+--ENDIF 

+--IF  'CALIFORNIA'=st 
I  St  I st  =  st I st  +  ' ,  California' 

I  stn='CA' 

+--ENDIF 

+--IF  'COLORADO'=St 
I  St  I st  =  st I st  +  ' ,  Colorado' 

I  stn='CO' 

+--ENDIF 

+  --IF  'CONNECT  I  CUT '=St 
I  St  I st  =  st I st  +  ' ,  Connecticut' 

I  stn='CT' 

+--ENDIF 

+--IF  'DELAWARE'=St 
I  St  I st  =  st I st  +  ' ,  Del  aware' 

I  stn='DE' 

+--ENDIF 

+--IF  'DISTRICT  OF  COLUMBIA'=St 
I  stlst  =  stlst  +  '.  District  of  Col umb i- a ' 

I  stn='DC' 

+--ENDIF 

+--IF  'FLORIDA'=St 
I  s 1 1 s t  =  s 1 1 s t^ ' ,  Florida' 

I  stn='FL' 

+--ENDIF 

+--IF  'CEORCIA'=st 
I  s 1 1 s t  =  s 1 1 s t  + ' ,  Georgia ' 

I  stn='CA' 

+--ENDIF 

+--IF  'HAWAI I '=st 
I  stlst  =  stlst  +  '.  Flawai  i  ' 

I  s tn=  'Fll  ' 

+--ENDIF 

+--IF  'IDAHO'=St 
I  St  I st  =  st I st  +  ' ,  Idaho' 

I  stn= ' ID' 

+--ENDIF 

+--IF  ' ILLINOIS'=st 
I  stlst=stlst+',  Illinois' 

I  s  tn= ' I L ' 

+  — ENDIF 

+--IF  'INDIANA'=st 
I  St  I st  =  st I st  +  '  ,  Indiana' 

I  stn='IN' 

+--ENDIF 
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+--IF  'IOWA'=St 
I  stlst=stlst+',  I owa ' 

I  stn= ' I  A' 

+--ENDIF 

+--IF  'KANSAS'=St 
I  stlst=stlst+',  Kansas ' 

I  stn='KS' 

+--ENDIF 

+--IF  'KENTUCKY'=St 
I  St  I st  =  st I st  +  ' ,  Kentucky' 

I  stn='KY' 

+--ENDIF 

+--IF  'LOUISIANA'=st 
I  s 1 1 s t  =  s 1 1  s t+ '  ,  Louisiana' 

I  stn='LA' 

+--ENDIF 

+--IF  'MAINE'=St 
I  stlst=stlst+',  Maine' 

1  stn='ME' 

+--ENDI F 

+--IF  'MARYLAND' =St 
i  St  I st  =  st I st  +  ' ,  Maryland' 

1  stn='MD' 

+--ENDIF 

+  --IF  'MASSACHUSETTS '=St 
I  s t I s t =s t I s t+ ' ,  Massachusetts' 

I  stn='MA' 

+--ENDIF 

+--IF  'MICHICAN'=St 
i  stlst  =  stlst  +  '.  Mi  chi gan ' 

I  stn= 'Ml ' 

+--ENDIF 

+--IF  'MINNESOTA' =st 
I  St  I  st  =  st  I  st+ '  ,  Minnesota' 

I  stn='MN' 

+--ENDIF 

+--IF  'MISSISSIPPI '=st 
I  St  I st  =  st  I  st  + '  ,  Mississippi' 

I  stn='MS' 

+--ENDIF 

+--IF  'MISSOUR I ' =st 
I  stlst=stlst+'.  Mi ssour i ' 

I  stn='MO' 

+--ENDIF 

+--IF  'MONTANA'=St 
I  St  I st  =  st I st  +  ' ,  Montana' 

I  stn='MT' 

+--ENDIF 

+--IF  'NEBRASKA'=St 
I  St  I st  =  st I st  +  ' ,  Nebraska' 
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I  stn='NE' 

+--ENDIF 

+--IF  'NEVADA' =St 
I  St  I st  =  st I st  +  ' ,  Nevada' 

I  stn='NV' 

+--ENDIF 

+--IF  'NEW  HAMPSHIRE'=St 
I  St  I st  =  st I st  +  ' ,  New  Hampshi re' 

I  stn='NH' 

+--ENDIF 

+--IF  'NEW  JERSEY'=St 
I  stlst=stlst+'.  New  Jersey' 

I  stn='Nj' 

+--ENDIF 

+--IF  'NEW  MEXIC0'=St 
I  stlst=stlst+'.  New  Mexico' 

I  stn='NM' 

+--ENDI F 

+--IF  'NEW  YORK'=St 
I  St  I st  =  st I st  +  ' ,  New  York' 

I  stn='NY' 

+--ENDIF 

+--IF  'NORTH  CAROLINA'=St 
I  St  I st  =  st I st  +  ' ,  North  Carolina' 

I  stn='NC' 

+--ENDIF 

+--IF  'NORTH  DAKOTA' =St 
I  St  I st  =  st I st  +  ' ,  North  Dakota' 

I  stn='ND' 

+--ENDIF 

+--IF  'OHIO'=st 

I  stlst=stlst+',  Ohio' 

I  stn='OH' 

+--ENDIF 

+--IF  'OKLAHOMA' =St 
I  St  I st  =  st I st  +  ' ,  Oklahoma' 

I  stn='OK' 

+--ENDIF 

+--IF  'OREGON' =st 
I  St  I st  =  st I st  +  '  ,  Oregon' 

I  stn='OR' 

+--ENDIF 

+--IF  'PENNSYLVANIA'=St 
I  St  I st  =  st I st  +  ' ,  Pennsylvania' 

I  stn='PA' 

+--ENDIF 

+--IF  'RHODE  ISLAND' =St 
I  St  I st  =  st I st  +  ' ,  Rhode  Island' 

I  stn='RI ' 

+--ENDIF 


A-6 


pg 

of 

201- 


01-11-89  15:00:00  CHKSTAT2.PRC 
Wed  01-11-89  15:15: 18 


+--IF  'SOUTH  CAROLINA'=St 
1  St  I st  =  st I st+ ' ,  South  Carolina' 

I  stn='SC' 

+--ENDIF 

+--IF  'SOUTH  DAKOTA'=St 
I  St  I st  =  st I st+ '  ,  South  Dakota' 

I  stn='SD' 

+--END1F 

+--IF  'TEXAS'=St 
I  St  I st  =  st I st+  '  ,  Texas  ' 

I  stn='TX' 

+--ENDIF 

+--IF  'TENNESSEE'=st 
I  St  I st  =  st  I  st  +  ' ,  Tennessee' 

I  stn='TN' 

+--ENDI F 

+--IF  'UNITED  STATES'=St 
!  St  I st  =  st I st  + ' ,  United  States' 

I  stn='US' 

+--ENDIF 

+--IF  'UTAH'=st 

I  St  I st  =  st I st  +  ' ,  Utah' 

I  stn='UT' 

+--ENDIF 

+--IF  'VERMONT'=st 
I  St  I st  =  st I st  +  ' ,  Vermont' 

I  stn='VT' 

+--ENDI F 

+--IF  'VIRCINIA'=St 
I  stlst=stlst+',  Virginia' 

I  stn='VA' 

+--ENDIF 

+--IF  'WASHINCTON'=St 
I  St  I st  =  st I st+ '  ,  Washington' 

I  stn='WA' 

+--ENDIF 

+  --  IF  'WEST  VIRCINIA'=St 
I  St  I st  =  st I st  + ' ,  West  Virginia' 

I  stn='WV' 

+--ENDIF 

+--IF  'WISCONSIN'=st 
i  stlst=stlst+',  Wisconsin' 

I  stn= 'Wl ' 

+--ENDIF 

+--IF  'WYOMINC'=St 
I  stlst=stlst+',  Wyoming' 

I  stn='WY' 

+--ENDIF 


if  stist  is  empty,  take  off  last  character  of  entry  to  see  if  it  matches 
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I  +--IF  LEN(StlSt)=0 
I  I  St=SUBSTR(st,1,LEN(st)-1) 

I  I  Stln=LEN(st) 

I  I 

I  •  if  all  entry  characters  renwved,  set  special  code,  and  exit  do-while 
I  I  +--IF  stln=0 

I  I  I  ok=.t. 

Ill  stlst  = 

I  I  +--ENDIF 

I  I 

I  *  if  stist  has  possible  names,  set  ok  to  true  (for  ok  to  leave  do-while) 
I  +--ELSE 
I  I  ok=.t. 

I  +--ENDIF 
I 

I  •  end  of  search  for  possible  matches  with  state  names 
+--ENDDO 

•  strip  off  first  two  characters  to  eliminate  leading  ', 

St I st=SUBSTR(st I  St  ,3) 
st  =  stn 


RETURN 
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««•*•»««««•«*****«••«•**•••*««*••»***«*****•*•«•******************* 

•-  CHKSTATE.PRC  --  Last  Update  01/11/89 
*-  Copyright  (c)  1988,1989  by  John  A.  Kinast 
•-  All  Rights  Reserved 
*  -  written  for  CERL 

»««**••««««**«•««••***««««**«»•••«•»«••**•«*********«***«********** 

*-  attempt  to  decipher  state  entry 


stn  =  " " 

DO  chkstat2 

•  if  is  found  in  list,  more  than  one  state  name  is  present 

•  need  to  print  additional  help  message 

+--IF  AT(",",  stlst)>0 

I  s  t  =  ■"■ 

I  ok=  .  f . 

I  €>23,1  CLEAR  TO  24,78 

1 

I  'if  special  code  found,  then  say  that  no  match  found 
I  +--IF  stlst  = 

I  I  €>23,2  SAY  "NO  match  found  for  the  name" 

I  I  €>  24,2  SAY  "Please  check  your  spelling" 

I  I 

I  •  if  regular  names  are  present,  display  them  as  possible  matches 
I  '+--ELSE 

1  I  €>  23,2  SAY  "Enter  the  name  more  completely.  Possible  matches  are: 

I  I  €>  24.2  SAY  SUBSTRf  St  I  St  ,  1  ,76) 

I  I 

I  +--ENDIF 

I 

I  •  stist  contains  only  one  state  name,  so  it  must  be  a  match 
+--ELSE 

I  *  set  St  to  value  found  when  matching  entry 

I  st=stn 

+--ENDIF 

•  return  to  called  routine 
RETURN 
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•  COALBLD.PRC  --  Last  update  01/11/89 

•  Copyright  (C)  1988,1989  --  John  A.  Kinast 
•All  Rights  Reserved 

•  written  expressly  for  CERL 


*  build  database  on  coal  fields  from  txt  file 


CLEAR 

CLEAR  ALL 

SET  TALK  OFF 

SET  CONSOLE  ON 

SET  DEVICE  TO  SCREEN 

SET  MARGIN  TO  0 

•  loop  to  process  user  requests 
ans="  " 

+  --DO  WHILE  anso  "Q" 

I  CLEAR 

I  @  1 ,0  TO  3,79 

I  €>2,3  SAY  "COALBLD  datobase  building  routine" 

I  €>  2,69  SAY  DATE(  ) 

I  €>  8,15  SAY  "Add  to  COALFIELD  database" 

I  €>  10,15  SAY  "Split  COALFIELD  database  into  smaller  files" 

I  €>12,15  SAY  "Quit  COALBUILD  program" 

I  €>  15,15  SAY  "Opt  ion,  (A/S/Q)  "  +  CHR(174)  +"  "  +  CHR(175) 

I  ans="  " 

1  +--DO  WHILE  AT  (ans,  "ASQ")=0 

I  I  ans="  " 

I  I  €>15,32  GET  ans  PICTURE  "!" 

I  I  READ 

I  +--ENDDO 


•  section  for  quitting 

+--IF  ans="Q" 

I  LOOP 

+--ENDIF 


•  section  for  adding  to  coalfiel.dbf  from  smaller  files 

+--IF  ans="A" 

I  €>5,0  CLEAR 

I  €>8,10  SAY  "Adding  to  the  COALFIELD  database" 

I  +--IF  FILE  ("coalfiel.dbf") 
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I  USE  coa I f i el 

I  +--IF  RECCOUNT()>0 

I  1  @  12,10  SAY  "The  COALFIELD  database  has  "  ; 

I  1  +LTRIM(STR(RECCOUNT()))  +  "  entries  in  it." 

I  I  ok=.f. 

I  I  14,10  SAY  "Do  you  want  to  clear  them  before 

I  I  +"adding?  (Y/N)"  GET  ok  PICTURE  "Y” 

I  I  READ 

I  I  +--IF  Ok 

I  I  I  ok=.f. 

Ill  @  16,10  SAY  "Are  you  sure?  (Y/N)"  GET  ok  PICTURE  "Y" 

I  I  I  READ 

I  I  +--ENDIF 

I  I 

if  COALFIEL  is  to  be  cleared,  zap  it,  then  recreate  index  files 
I  I  +--IF  ok 

III  SET  SAFETY  OFF 

III  ZAP 

I  I  I  INDEX  ON  State  TO  coal  fie  I 

I  I  I  INDEX  ON  code_no  TO  coa I  code 

III  SET  SAFETY  ON 

I  I  I  CLOSE  DATABASES 

I  I  I  @18,10  SAY  "COALFIED  database  cleared." 

I  I  +--ENDIF 

I  I 

let  user  know  COALFIEL  has  no  entries  in  it 
I  +--ELSE 

I  I  @  16,10  SAY  "The  COALFIELD  database  has  no  entries." 

I  +--ENDIF 

I 

let  user  know  COALFIEL  was  not  present  and  will  be  created,  if  it  can 
+--ELSE 

I  @  12,10  SAY  "COALFIEL  database  file  not  present. 

I  @14,10  SAY  "It  will  be  built  from  the  first  data  file." 

+--ENDIF 

wait  before  clearing  screen  display 
ky  =  "  " 

@  22,10  SAY  "Press  any  key  to  continue..."  GET  ky 
READ 

check  with  user  to  make  sure  he  is  ready  to  add 
@5,0  CLEAR 
Ok= .  f . 

@  8,10  SAY  "Ready  to  add  to  COALFIEL?  (Y/N)"  GET  ok  PICTURE  "Y" 
READ 

+--IF  .NOT.  Ok 
I  LOOP 

+--END1F 
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*  loop  through  possible  file  names 

I  @  10,10  SAY  "Searching  for  COALFIEL  data  files” 

I  i  =1 

I  f  c=0 

I  fnd=.f. 

I  +--DO  WHILE  i<100 

I  I  f I ="COALFL"  +LTRIM(STR(i ))  +".DBF" 

I  I  @12,10  SAY  "Looking  for  “  +fl  +" 

I  i  +--IF  FILE(f  I  ) 

I  I  I  fc=fc+1 

I  I  I  @12,10  SAY  "Found  "  +fl  +".  Adding  to  COALFIEL. 

I  I  I  fnd=.t. 

I  I  I 

I  1  I  +--IF  FiLEC'coal  f  iel  .dbf") 

I  I  I  I  USE  coa I f i e I 

I  I  I  I  APPEND  FROM  &fl 

I  I  I  +--ELSE 

I  1  I  I  USE  &f I 

I  I  I  I  COPY  TO  coa I f i e I 

I  I  I  +--ENDIF 

I  I  I 

I  I  I  CLOSE  DATABASES 

I  I  +--ENDIF 

I  I  i  =  i  + 1 

I  +--ENDDO 

\  I 

*  announce  to  user  total  files  found,  then  reindex  COALFIEL 

I  +--IF  foO 

I  I  @  14,10  SAY  LTRIM(STR( fc) )  +"  files  found," 

I  I 

I  I  @  16,10  SAY  "Updating  index  files  for  COALFIEL." 

I  I  @  17,14  SAY  "Indexing  coal  fields  by  state" 

I  I  USE  coa I f i e I 

I  I  SET  SAFETY  OFF 

I  I  INDEX  ON  State  TO  coal f iel 

I  I  SET  SAFETY  ON 

I  I  @  ROW(),COL()  SAY  "  -  done" 

I  1  @18,14  SAY  "Indexing  coal  fields  by  code  number" 

I  I  SET  SAFETY  OFF 

I  I  INDEX  ON  code_no  TO  coa I  code 

I  I  SET  SAFETY  ON 

I  I  CLOSE  DATABASES 

I  I  @  ROW(),COL()  SAY  "  -  done" 

I  I 

*  let  user  know  that  no  files  were  found 

I  +--ELSE 

I  I  @  14,10  SAY  "NO  files  found." 

I  +--ENDIF 
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*  wait  before  clearing  screen  display 
I  l<y  =  "  •' 

I  @22,10  SAY  "Press  any  key  to  continue..."  GET  ky 

I  READ 

I  LOOP 

+--ENDIF 


•  section  for  splitting  up  coalfiel.dbf  into  smaller  files 


+--IF  ans="S" 

I  @5,0  CLEAR 


•  let  user  know  that  COaLFIEL  was  not  found,  and  cannot  be  split 
I  +--IF  .NOT.  FILEfcoal  f  iel  .dbf") 

I  I  @5,0  CLEAR 

I  1  @  10,10  SAY  "COALFIEL.DBF  database  file  was  not’ found. 

1  i  @  12,10  SAY  "The  file  must  be  present  to  split  it  "  ; 

I  I  +"into  smaller  data  files." 


wait  before  cleari’ng  screen  display 


ky  =  "  " 

@  22,10  SAY 
READ 
LOOP 
+--ENDIF 


'Press  any  key  to  continue. 


GET  ky 


*  proceed  with  splitting  up,  if  everything  is  ready 

!  @5,0  CLEAR 

I  ok= . f . 

I  @  8,10  SAY  "Ready  to  split  COALFIEL?  (Y/N)"  GET  ok  PICTURE  "Y" 

I  READ 

I  +--IF  .NOT.  Ok 
I  I  LOOP 

I  +--ENDIF 

I 

*  loop  to  split  up  COALFIEL. dbf  into  smaller  files  (700  records  each) 

I  @  8,10  SAY  "Splitting  COALFIELD  database  into  smaller  files," 

I  i  =1 

I  USE  coal f iel 

I  +--DO  WHILE  i<100  .AND.  .NOT.  EOF (  ) 

I  I  fl="COALFL"  +LTRIM(STR( i ) )  +".DBF" 

I  I  @12,10  SAY  "Creating  "  +fl  +"." 

I  1  SET  SAFETY  OFF 

I  I  COPY  NEXT  700  TO  &f I 

I  I  SET  SAFETY  ON 

I  I  +--IF  .NOT.  EOFO 

I  I  I  SKIP 

I  I  +--ENDIF 
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I  I  i=i+l 

I  +--ENDDO 

I  CLOSE  DATABASES 

I  @  14,10  SAY  LTRIM(STR( i -1 ) )  +"  files  created." 

I 

*  erase  any  remaining  old  data  files 
I  +--DO  WHILE  l<100 

I  I  fl="COALFL"  +LTRIM(STR(i ))  +".DBF" 

I  I  +--IF  FILE(f n 

I  I  I  ERASE  &fl 

I  I  +--ENDIF 

I  I  i=i+i 

I  +--ENDDO 

I 

•  wait  before  clearing  screen  display 

I  ky  =  "  " 

I  @  22,10  SAY  "Press  any  key  to  continue..."  GET  ky 

I  READ 


+--ENDIF 


+--ENDD0 


CLEAR  ALL 
SET  TALK  ON 

RETURN 

\ 
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COALFIEL.PRC  --  Last  update  01/11/89 
Copyright  (C)  1988,1989  --  John  A.  Kinast 
All  Rights  Reserved 
written  expressly  for  CERL 

*«*»*««»*«««•«*«»«*«*«*«*«***»*«••»«•*•«*•***•«************************ 

update  database  on  coal  fields 


•  reset  colors  to  desired  values  if  necessary 
SET  TALK  OFF 

DO  setcolor 

CLEAR  ALL 

SET  BELL  OFF 

SET  CONSOLE  ON 

SET  DEVICE  TO  SCREEN 

SET  MARGIN  TO  0 

ON  ESCAPE 

@6,0  SAY  ' ' 

TEXT 

@@@@@  @€>@  @  @@@@@@  @@@@@  @@@@@@  @  @@@@@@ 

'  @@@@@@@  @  @ 

'  ^  @  @@  @  @@ 
'  ^  @  @  @  €>  @  @@@@@  @  @  @  @ 
^  ^  ^  ^  ^  ^  ^  ^  ^ 

@  @ 

@  @  ^)(S)^>^)(S(S 

ENDTEXT 

@  4,0  TO  16,79  double 

•  define  operating  environment 
DO  dbenvrn 

•  check  for  index  file  for  coal  fields 

indxfnd=  (  F I LE ( "coa I f i el "+endi ng )  )  .AND.  (  F I LE ( "coa I  code" +end i ng )  ) 
indxfnd=  indxfnd  .AND.  (  F I LE ( "coa I di s t "+endi ng )  ) 

+--IF  .NOT.  indxfnd 

I  @  17,15  SAY  "Index  files  were  not  found  on  startup" 

I  @  18,15  SAY  "Please  wait  while  they  are  created" 

I 

I  +-- I F  . NOT .  c  M  pper 
I  I  ON  ESCAPE  abt= . t . 

I  +--ENDIF 

I 

I  @  R0W()+1,15  SAY  "Indexing  coal  fields  by  state" 

I  USE  coa I f i el 

I  SET  SAFETY  OFF 

1  INDEX  ON  State  TO  coalfiel 

I  SET  SAFETY  ON 
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I  @  ROW(),COL()  SAY  "  -  done" 

I  @  ROW()+1,15  SAY  "Indexing  coal  fields  by  code  number" 

I  SET  SAFETY  OFF 

I  INDEX  ON  code_no  TO  coal  code 

1  SET  SAFETY  ON 

I  @  ROWO.COLO  SAY  "  -  done" 

I 

I  @  ROW()+1,15  SAY  "Indexing  coal  fields  by  distance  value" 

I  SET  SAFETY  OFF 

I  INDEX  ON  dist_from  TO  coaldist 

I  SET  SAFETY  ON 

I  CLOSE  DATABASES 

I  @  ROW(),COL()  SAY  "  -  done" 

I 

I  +-- I F  NOT .  c I i pper 

I  1  ON  ESCAPE 

I  +--ENDIF 

I 

+--ENDIF 

•  clear  key  entries 
c=1 

+  --DO  WHILE  coO 
I  C=INKEY() 

+--ENDDO 

•  print  message  to  continue 

@”24,20  SAY  "Press  any  key  to  continue..." 

•  wait  for  key  press 
c=0 

+--DO  WHILE  c=0 
I  C=INKEY() 

+--ENDDO 

•  run  main  coaifieid  routine 
DO  coa I f i do 

CLEAR  ALL 
CLEAR 

SET  TALK  ON 
RETURN 
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•  COALFLDO.PRC  --  Last  update  01/11/89 

•  Copyright  (C)  1988,1989  --  John  A.  Kinast 

•  Al I  Rights  Reserved 

•  written  expressly  for  CERL 

**«*•••«•*•*•««««**•*••••*«**••***************************************** 

•  update  database  on  coal  fields 

. . 


USE  coal fi el  INDEX  coalfiel,  coal  code 

SET  DELETED  ON 

CO  top 

lv=.t. 

ans="  " 

cur  rec=0 

I s  t  rec=0 

•  loop  through  options  until  done 
+--DO  WHILE  ans<>"Q" 

I 

I  •  display  coal  field  screen 
I  DO  coa I scr 

I 

I  *  ask  for  option 

I  €>  22,10  SAY  "Edit  field  /  Add  field  /  move  Forward  /  move  Backward' 

I  @  23,10  SAY  "Delete  field  /  change  Views  /  Print  field  list  /Quit" 

I  €>  24,10  SAY  "Option  (E/A/F/B/O/V/P/Q)  "  +CHR(174)  +"  "  +CHR(175) 

I  ans="  " 

I  +--DO  WHILE  ATfans , "EAFBDVPQ" )=0 
1  I  ans="  " 

I  I  24,40  GET  ans  PICTURE  " !  " 

I  I  READ 

I  +--ENDDO 

I 

I  *  to  move  forward 
I  +--IF  ans="F" 

I  I  +--IF  Iv 

I  I  I  +--IF  .NOT.  EOFO 

I  I  I  I  SKIP 

I  I  I  I  +--IF  EOFO 

I  I  I  I  I  CO  BOTTOM 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDIF 

I  I  +--ELSE 

1  I  I  +-- IF  .NOT.  EOFO 

I  I  I  I  SKIP  13 

I  I  I  I  +--IF  EOFO 

I  I  I  I  I  CO  top 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDIF 
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I  +--ENDIF 
+--ENDIF 

•  to  inove  backward 
+ — IF  ans  =  "B" 

I  +--IF  Iv 

I  I  +--IF  .NOT.  EOFO 

I  I  I  SKIP  -1 

I  I  1  +--IF  BOFO 

I  I  I  I  CO  top 

I  I  I  +--ENDIF 

I  I  +--ENDIF 

I  +--ELSE 

I  I  +--IF  .NOT.  EOFO 

I  I  I  SKIP  -13 

I  I  I  +--IF  BOFO 

I  I  I  I  CO  BOTTOM 

I  I  I  +--ENDIF 

I  I  +--ENDIF 

I  +--ENDIF 
+--ENDIF 


I  +--IF  ans="D" 

I  I  +--IF  .NOT.  Iv 
f  I  I  i=7 

I  I  I  €>  i  ,  0  SAY  " 

I  I  I  ans  =  "  +  '' 

I  I  I  @-22.0  CLEAR 

III  @  22,5  SAY  CHR(24)  +CHR(25)  +"  to  move  indicator  /  Delete 

I  I  I  +" i ndica ted  base  /  Qui t  without  deleting" 

III  €>  23,5  SAY  "Option  ("  +CHR(24)  +"/"  +CHR(25)  +"/D/Q) 

I  I  I  +CHR074)  +"  "  +CHR(175) 

I  I  I  cq=1 

I  I  I  ans="  " 

I  I  I  +--DO  WHILE  ans<>"D"  .AND.  ans<>"Q" 

I  I  I  I  @  i,0  SAY  CHR( 175)+CHR( 1753+CHR( 175) 

I  I  I  I  +--IF  cq>0 

I  I  I  I  I  sq="  " 

I  I  I  I  I  €»  23,27  CET  sq 

I  I  I  I  I  CLEAR  CETS 

I  I  I  II  @  23,27  SAY  "" 

I  I  I  I  I  cq=0 

I  I  I  I  +--ENDIF 

I  I  I  I  +--DO  WHILE  AT(  CHR ( cq) , "DdQq" +CHR ( 5 ) +CHR ( 24 )  )=0 

I  I  I  I  I  cq=INKEYO 

I  I  I  I  +--ENDDO 

I  I  I  I  +--DO  CASE 

I  I  I  I  I  CASE  cq=5 

I  I  I  I  I  sq=CHR(24) 

I  I  I  I  I  CASE  cq=24 
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till  sq=CHR(25) 

I  I  I  I  CASE  cq=68  OR.  cq=100 

I  I  I  I  sq="D‘' 

I  I  I  I  ans="D" 

till  CASE  cq=81  .OR.  cq=113 
I  I  I  I  sq="Q" 

I  I  I  I  ans="Q" 

I  I  I  +--ENDCASE 

III  @  23,27  GET  sq 

I  I  I  CLEAR  GETS 

I  I  I  +--IF  cq=68  .OR.  cq=100  .OR.  cq=81  .OR.  cq=113 

I  I  I  I  LOOP 

I  I  I  +--ENDIF 

I  I  I  +--IF  cq=24 

I  I  I  I  +--IF  RECNOC )<>tstrec 

I  I  I  I  1  @  i  ,  0  SAY  ■■ 

I  I  I  I  I  i=i+1 

1  I  I  I  I  SKIP 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDIF 

I  I  I  +--IF  cq=5 

I  I  I  I  +--IF  RECNO( )<>cur rec 

I  I  I  I  I  @  i  ,  0  SAY  •• 

I  I  I  I  I  i=i-1 

I  I  I  I  I  SKIP  -1 

till  +--ENDIF 
I  I  I  +--ENDIF 

I  I  +--END(X) 

I  I  currec=RECNO( ) 

I  +--ENDIF 
I  @22,0  CLEAR 

I 

*  if  user  wanted  to  quit  from  deleting,  loop  to  end 
I  +--IF  ans="Q" 

I  I  ans  =  "  '■ 

I  I  LOOP 

I  +--ENDIF 
I 

•  check  with  user  whether  to  delete 
I  +--IF  .NOT.  EOF{) 

I  I  Ok=.f. 

1  I  €>  22,15  SAY  "Delete  this  coalfield?  (Y/N)"  GET  ok  PICTURE  "Y" 

I  I  READ 

I  I  +--IF  Ok 

I  I  I  @23,15  SAY  "Are  you  sure?  (Y/N)"  GET  ok  PICTURE  "Y" 

I  I  I  READ 

I  I  +--ENDIF 

I  I  +--IF  Ok 

I  I  I  DELETE 

I  I  I  SKIP 
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I  1  I  +--IF  EOFO 

I  I  I  I  CO  top 

I  I  I  +--ENDIF 

I  I  +--END1F 

I  +--ELSE 

I  I  €>  22,15  SAY  "A  coalfield  must  be  present  to  be  deleted. 

I  I  ans  =  "  ■■ 

I  I  €>  23,15  SAY  "Press  any  key  to  continue..."  GET  ans 

I  I  READ 

I  I  ans="+" 

I  +--ENDIF 

+--ENDIF 

+--IF  ans="V" 

I  I  V  =1 IF(  I  V,  . f . ,  . t . ) 

+--ENDIF 

+--IF  ans="P" 

I  DO  coalprt 

I  ans="+" 

+--ENDIF 

*  if  adding  record  is  wanted 
+--IF  ans="A" 

I  APPEND  BLANK 

•  set  up  to  edit  blank  record 

I  ans="E" 

I  lv=.t. 

+--ENDIF 

+--IF  ans="E" 

I  +--IF  .NOT.  Iv 

II  i  =7 

I  I  @  i  ,  0  SAY 

I  I  ans="+" 

I  I  €»  20,0  CLEAR 

I  I  @  22,5  SAY  CHR(24)  +CHR(25)  +"  tO  move  indicator  /  Edit 

I  I  +"indicated  base  /  Quit  without  editing" 

I  I  €>  23,5  SAY  "Option  ("  +CHR(24)  +"/"  +CHR(25)  +"/E/Q) 

I  I  +CHR(174)  +"  "  +CHR(175) 

I  I  cq=1 

I  I  ans="  " 

I  I  +--DO  WHILE  ans<>"E"  .AND.  ans<>“Q" 

I  I  I  @1,0  SAY  CHR( 175)+CHR( 175)+CHR( 175) 

I  I  I  +--IF  cq>0 
I  I  I  I  sq="  " 

I  I  I  I  €>  23,27  GET  sq 

I  I  I  I  CLEAR  CETS 

I  I  I  I  @23,27  SAY  "" 

I  I  I  I  cq=0 
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I  I  I  +--ENDIF 

I  I  I  +--DO  WHILE  AT(  CHR { cq ) , " EeQq” +CHR ( 5 ) +CHR ( 24 )  )=0 
I  I  I  I  cq=INKEY() 

I  I  I  +--ENDDO 

I  I  1  +--DO  CASE 

I  I  I  I  CASE  cq=5 
I  I  I  I  sq=CHR(24) 

I  I  I  I  CASE  cq=24 

I  I  I  I  sq=CHR(25) 

I  I  I  I  CASE  cq=69  .OR.  cq=101 

till  sq="E" 

I  I  I  I  ans  =  ‘'E" 

I  I  I  I  CASE  cq=81  .OR.  cq=113 

I  I  I  I  sq="Q" 

I  I  I  I  ans="Q" 

I  I  I  +--ENDCASE 

III  €>  23,27  GET  sq 

I  I  I  CLEAR  GETS 

I  I  I  +--IF  cq=69  .OR.  cq=101  .OR.  cq=81  .OR.  cq=113 

I  I  I  I  LOOP 

I  I  I  +--ENDIF 

I  I  I  +--IF  cq=24 

I  I  I  I  +--IF  R£CNO( )<>lstrec 

I  I  I  I  I  @  i  ,  0  SAY  ■■ 

I  I  I  I  i  i=i+1 

I  I  I  I  I  SKIP 

I  I  I  I  +--ENDIF 

I  I  1  +--ENDIF 

I  I  I  +--IF  cq=5 

I  I  I  I  +--IF  RECNO( )<>cur rec 

I  I  I  I  1  €>1.0  SAY 

I  I  I  I  I  i=i-l 

I  I  I  I  I  SKIP  -1 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDIF 

I  I  +--ENDDO 

II  cur  rec=RECNO( ) 

I  +--ENDIF 

I 

*  if  user  wants  to  quit  out  of  editing,  loop  to  bottom 
I  +--IF  ans="Q" 

I  I  ans="  " 

I  I  LOOP 

I  +--ENDIF 
I 

•  Otherwise,  proceed  with  editing 

I  I v=  .  t . 

I  ans="C" 

I  ok=.f. 

I  redraw=.t. 
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I  ttlmsg=.f. 

I  q=5 

I  lst=5 

I  nxt=5 

I  REPLACE  last_chg  WITH  DATEO 

I  +--DO  WHILE  ans="C" 

I  I 

•  display  coal  field  database  screen  if  necessary 

I  I  +--IF  redraw 

III  DO  coa I scr 

I  I  I  redraw=.f. 

I  I  +--ENDIF 

I  I 

•  clear  screen  message  area 

I  I  @22,0  CLEAR 

I  I 

•  process  entry  based  on  value  of  q  (pointer) 

I  I  +--DO  CASE 

I  I  I 

•  CASE  q=1 

•  @24,1  clear  to  24,78 

•  @24,2  say  'prompt ' 

•  ok=.f. 

•  do  whi I e  . not .  ok 

•  @  \ , \  get  \  picture  ' ' 

•  read 

•  ok= . t . 

•  enddo 

•  I  st  = 

•  nxt  = 

I  I  I 

•  enter  state 

I  I  I  CASE  q=5 

I  I  I  @24,1  CLEAR  TO  24,78 

III  @  23,2  SAY  'Enter  two-letter  state  abbreviation  or  name' 

I  I  I  ok=.f. 

I  I  I  +--DO  WHILE  .NOT.  Ok 

I  I  I  I  st=state+SPACE( 18) 

I  I  I  !  s  1 1  s  t  =  ■■  ■■ 

I  I  I  I  @  3,10  GET  st  PICTURE  "XXXXXXXXXXXXXXXXXXXX" 

I  I  I  I  READ 

I  I  I  I  rdky=READKEY( ) 

I  I  I  I  +--IF  rdky=l2  .OR.  rdky=268 

I  I  I  I  I  ok=.t. 

I  I  I  I  I  st="" 

I  I  I  I  +--ELSE 

I  I  I  I  I  DO  chkstate 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDDO 

I  I  I  +--IF  rdky=12  .OR.  rdky=268 
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enter  I 


enter 


I  I  st=state 

I  I  DO  idstate 

I  +--ELSE 

I  I  REPLACE  State  WITH  St 

I  +--ENDiF 

I  St  =  St  +■'  -  '■  +stlst 

I  @  3, 10  GET  St 

I  CLEAR  GETS 

I  lst=5 

I  nxt=10 

I 

ocat ion 
1  CASE  q=10 

I  €>  23,2  SAY  'Enter  location  of  coal' 

I  ok=.f. 

I  +--DO  WHILE  .NOT.  Ok 

I  I  @3,47  GET  location 

I  I  READ 

I  I  Ok=.t. 

I  +--ENDDO 

I  lst=5 

I  nxt=15 

I 

ounty 

I  CASE  q=15 

I  @  23,2  SAY  'Enter  county  in  which  field  is  located' 

I  ok=. f . 

I  +--DO  WHILE  .NOT.  Ok 

I  I  @  4 , 1 1  GET  county 

1  I  READ 

1  I  Ok=.t. 

I  +--ENDDO 

I  lst=10 

I  nxt=20 

I 

i tude  of  coa I  field 
I  CASE  q=20 

I  @  23,2  SAY  'Enter  north  latitude  of  field  (dddmmss) 

I  ok=  .  f . 

I  +--DO  WHILE  .NOT.  Ok 

I  I  c I  at =STR ( I  at i tude,7) 

I  I  lat_1  =VAL(  SUBSTRfclat , 1 ,3)  ) 

I  I  lat_2  =VAL(  SUBSTRfclat  ,4,2)  ) 

I  I  lat_3  =VAL(  SUBSTRfclat ,6,2)  ) 

I  I  @  4,47  GET  lat_1  PICTURE  "###" 

I  I  @4,51  GET  lat_2  PICTURE  "##" 

I  I  @4,54  GET  lat_3  PICTURE  "##" 

I  I  READ 

I  1  Ok=  lat_1>24  .AND.  Iat_1<73 

I  I  ok=  Ok  .AND.  lat  2>-1  .AND.  lat  2<60 
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I  ok=  Ok  .AND.  Iat_3>-1  .AND.  Iat_3<60 

I  Ok=  ok  .OR.  READKEY()=12 

1  +--IF  .NOT.  Ok 

I  I  @  24,2  SAY  "Latitude  must  be  in  25-72  deg  range" 

I  +--ENDIF 

+--ENDDO 

clat  =STR( lat_1,3)  +STR( I at_2 , 2 )  +STR( I at_3 , 2 ) 

+  --1F  SUBSTRfclat  ,4, 1  )  +  ••  I"  =■■  I" 

I  Ciat  =SUBSTR(clat , 1 ,3)  +“0“  +SUBSTR( c I  at , 5 ) 

+--END1F 

+--IF  SUBSTR(clat,6,1)+"|"  =  "  I" 

I  clat  =SUBSTR(clat , 1 ,5)  +"0"  +SUBSTR(cl at ,7) 

+  --ENDI.F 

REPLACE  lat i tude  WITH  VALfclat ) 

I St=15 
nxt=25 


i tude  of  coa I  f i e I d 
CASE  q=25 

@  23,2  SAY  'Enter  west  longitude  of  field  (dddmmss)' 
ok= .  f . 

+--DO  WHILE  .NOT.  Ok 
I  clon=STR( longi tude,7) 

I  lon_1  =VAL(  SUBSTRfclon,  1  ,3),  ) 

I  IOn_2  =VAL(  SUBSTR(clon.4,2)  ) 

I  lon_3  =VAL(  SUBSTR(clon,6.2)  ) 

I  @  4,67  GET  IOn_1  PICTURE  "###" 

I  @  4,71  GET  lon_2  PICTURE  “##" 

I  €>  4,74  GET  lon_3  PICTURE  “##" 

I  READ 

I  ok=  lon_1>62  .AND.  lon_l<173 

I  Ok=  ok  .AND.  lon_2>-1  .AND.  Ion_2<60 

I  Ok=  ok  .AND.  lon_3>-1  .AND.  Ion_3<60 

I  Ok=  ok  OR.  READKEYf )=12 

I  +--IF  .NOT.  Ok 

I  I  @  24,2  SAY  "Longitude  must  be  in  63-172  deg  range' 

I  +--ENDIF 

+--ENDDO 

Cion  =STR( lon_1 ,3)  +STR( lon_2.2)  +STR( lon_3,2) 

+--IF  SUBSTR(clon,4, 1 )+" I "  ="  I" 

I  Cion  =SUBSTR{clon, 1 ,3)  +"0"  +SUBSTR(clon,5) 

+--ENDIF 

+--IF  SUBSTR(clon,6, 1 )+" I"  =  "  I" 

I  Cion  =SUBSTR(clon, 1 ,5)  +"0"  +SUBSTR(clon,7) 

+--ENDIF 

REPLACE  longi tude  WITH  VAL(clon) 

I  St  =  20 
nxt=30 


•  get  moisture  of  coal  sample 
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CASE  q=30 

€>  23,2  SAY  'Enter  Proximate  Analysis,  wt  %,  moisture  of  coal 
ok  = .  f . 

+--DO  WHILE  .NOT.  Ok 
I  €»  7, 15  GET  MOISTURE 

I  READ 

I  ok=(  moisture>=0  .AND.  moisture<=60  )  .OR.  ; 

I  READKEY()=12  .OR.  READKEYt ) =268 

1  +--IF  .NOT.  Ok 

I  I  @24,1  CLEAR  TO  24,78 

II  @24,2  SAY  "Value  should  be  between  0%  and  60%" 

I  +--ENDIF 

+--ENDDO 
I St=25 
nxt=35 


carbon  component  of  coal  sample 
CASE  q=35 

@  23,2  SAY  'Enter  Proximate  Analysis  (wt  %)  '  ; 

+'of  Fixed  Carbon  on  a  dry  basis' 

+--IF  ttImsQ 

I  @  24,2  SAY  "Volatile,  Fixed  Carbon,  and  Ash 

I  +"yalues  should  total  100  %.  Please  check.” 

+--ENDIF 
ok= . f . 

+--DO  WHILE  .NOT.  Ok 
I  @  9. 19  GET  FIXED_CRBN 

I  READ 

I  ok={  f i xed_crbn>=20  .AND.  f i xed_crbn<=99  )  .OR.  ; 

I  READKEY()=12  .OR.  READKEY( ) =268 

I  +--IF  .NOT.  Ok 
I  I  @24,1  CLEAR  TO  24.78 

I  I  @24,2  SAY  "Value  should  be  between  20%  and  99%' 


I  +--ENDIF 
+--ENDDO 
I St=30 
nxt  =40 


tile  component  of  coal  sample 
CASE  q=40 

@  23,2  SAY  "Enter  Proximate  Analysis  (wt  %) 

+"  of  Volatiles  on  a  dry  basis" 

+--IF  ttimsg 

I  @  24,2  SAY  "Volatiles,  Fixed  Carbon,  and  Ash 

I  +"yalues  should  total  100  %.  Please  check." 

+--ENDIF 
ok= . f . 

+--DO  WHILE  .NOT.  Ok 
I  @9.41  GET  VOLATILE 

I  READ 
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I  ok=(  volatile>=0  .AND.  volatile<=60  )  .OR.  ; 

I  READKEY()=12  .OR.  READKEYf ) =268 

I  +--IF  .NOT.  Ok 
I  I  @24,1  CLEAR  TO  24,78 

I  I  @24,2  SAY  "Value  should  be  between  0%  and  60%" 

I  +--ENDIF 
+--ENDDO 
I  St=35 
nxt=45 


ash  component  of  coal  sample 
1  CASE  q=45 

I  @  23,2  SAY  'Enter  Proximate  Analysis  (wt  %) 

I  +'of  Ash  on  a  dry  basis' 

I  +--IF  ttimsg 

I  I  @  24,2  SAY  "Volatile,  Fixed  Carbon,  and  Ash 

I  I  +"values  should  total  100  %.  Please  check." 

I  +--ENDIF 
I  ok= . f . 

1  +--DO  WHILE  .NOT.  Ok 

I  I  @  9,58  GET  ASH 

I  I  READ 

I  I  ok=(  ash>=0  .AND.  ash<=50  )  .OR. 

I  I  READKEY()=12  .OR.  READKEYf ) =268 

I  I  +--IF  .NuT.  Ok 

I  I  I  @24,1  CLEAR  TO  24,78 

I  I  I  @24.2  SAY  "Value  should  be  between  0%  and  50%" 

I  I  +--ENDIF 

I  +--ENDDO 
I  lst=40 

I  nxt=50 

I 

carbon  (ultimate  analysis) 

I  CASE  q=50 

I  @  23,2  SAY  'Enter  Carbon  {%)  on  a  dry  basis' 

I  ok=.f. 

I  +--DO  WHILE  .NOT.  Ok 

I  I  @12,13  GET  carbon 

I  I  READ 

I  I  ok=(  carbon>=20  .AND.  carbon<=99  )  .OR.  ; 

I  I  READKEY()=12  .OR.  READKEY{ ) =268 

I  I  +--IF  .NOT.  Ok 

I  I  I  @24,1  CLEAR  TO  24,78 

I  I  I  @24,2  SAY  "Value  should  be  between  20%  and  99%" 

I  I  +--ENDIF 

I  +--ENDDO 
I  lst=45 

I  nxt=55 


•  get  hydrogen  (ultimate  analysis) 
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CASE  q=55 

@  23,2  SAY  'Enter  hydrogen  (%)  on  a  dry  basis' 
ok= .  f . 

+--DO  WHILE  .NOT.  Ok 
I  €>  12,36  GET  hydrogen 

I  READ 

I  ok=(  hydrogen>=0  .AND.  hydrogen<=30  )  .OR.  ; 

I  READKEY()=12  .OR.  READKEY{)=268 

I  +--IF  .NOT.  Ok 
I  I  @23,1  CLEAR  TO  24,78 

I  I  @23,2  SAY  "Value  should  be  between  0%  and  30%" 

I  +--ENDIF 
+--ENDDO 
lst=50 
nxt=60 


*  get 


ogen  (ultimate  analysis) 

CASE  q=60 

@  23,2  SAY  'Enter  nitrogen  (%)  on  a  dry  basis' 
ok= .  f . 

+--DO  WHILE  .NOT.  Ok 
I  @  12,  57  GET  ni trogen 

I  READ 

I  ok=(  nitrogen>=0  .AND.  nitrogen<=30  )  .OR,  ; 

I  READKEY()=12  .OR.  READKEY( ) =268 

I  +--IF  .NOT,  Ok 
1  I  @24,1  CLEAR  TO  24,78 

I  I  @24,2  SAY  "Value  should  be  between  0%  and  30%' 

I  +--ENDIF 
+--ENDDO 
I St=55 
nxt  =62 


•  get 


su I  fur 


( u I t imate  ana  lysis) 

CASE  q=62 

@  23,2  SAY  'Enter  sulfur  (%)  on  a  dry  basis' 
ok= .  f . 

+--DO  WHILE  .NOT.  Ok 
I  @13,13  GET  sul fur 

I  READ 

I  ok=(  sulfur>=0  .AND.  sulfur<=20  )  .OR.  ; 

I  READKEY()=12  .OR.  READKEYf ) =268 

I  +--IF  .NOT.  Ok 
I  I  @24,1  CLEAR  TO  24,78 

I  I  @24,2  SAY  "Value  should  be  between  0%  and  20% 

I  +--ENDIF 
+--ENDDO 
I St=60 
nxt=64 
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•  get  oxygen  (ultimate  analysis) 

I  I  I  CASE  q=64 

III  €>  23.2  SAY  'Enter  oxygen  (%)  on  a  dry  basis' 

I  I  I  ok=.f. 

I  I  I  +--DO  WHILE  .NOT.  Ok 

I  I  I  I  @13,36  GET  oxygen  . 

I  I  I  I  READ 

I  I  I  I  ok=(  oxygen>=0  .AND.  oxygen<=50  )  .OR.  ; 

I  I  I  I  READKEY()=12  .OR.  READKEY( ) =268 

I  I  I  I  +--IF  .NOT.  Ok 

I  I  I  I  I  @24,1  CLEAR  TO  24,78 

I  I  I  I  I  @24,2  SAY  “Value  should  be  between  0%  and  50%" 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDDO 

I  I  I  ist=62 

I  I  I  nxt=66 

I  I  I 

•  get  gross  calorific  value 

I  I  I  CASE  q=66 

III  @  23,2  SAY  'Enter  Cross  Calorific  Value  (dry)' 

I  I  I  ok=.f. 

I  I  I  +--DO  WHILE  .NOT.  Ok 

I  I  I  I  @  16,34  GET  hhv_dry 

I  I  I  I  read 

I  I  I  I  ok=(  hhv_dry>=5000  .AND.  hhv_dry<=20000  )  .OR.  ; 

I  I  I  I  READKEY()=12  .OR.  READKEY( ) =268  .OR.  hhv_dry=0 

I  I  I  I  +--IF  .NOT.  Ok 

I  I  I  I  I  @24,1  CLEAR  TO  24.78 

I  I  I  I  I  @24,2  SAY  "Value  should  be  between  5000 

I  I  I  I  I  +"and  20000  Btu/lb" 

I  I  I  I  +--ENDIF 

I  I  I  +--ENDDO 

I  I  I  lst=64 

I  I  I  nxt=70 

I  I  I 

•  get  rank  of  coal  sample 

I  I  I  CASE  q=70 

III  @  22,2  SAY  "Enter  Rank  of  coal  field  --  Bituminous 

I  I  I  +"/  Sub-Bituminous  /  Lignite  / 

III  @  23.6  SAY  "Anthracite  /  Semi -Anthraci te  --  (B/SB/L/A/SA) ' 

I  I  I  ok=.f. 

I  I  I  +--DO  WHILE  .NOT.  Ok 

I  I  I  I  @  16,62  GET  rank  PICTURE  "!!!!!" 

I  I  I  I  READ 

I  I  I  I  crank=LTRIM(TRlM(rank) ) 

I  I  I  I  REPLACE  rank  WITH  crank 

I  I  I  I  crank=  " I "  +crank  +" I " 

I  I  I  I  ok=  crank  $  "  IB  I  I  SB  I  |L|  |A|  ISA  I  "  .OR.  ; 

I  I  I  I  READKEY()=12 

I  I  I  I  +--IF  .NOT.  ok 
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I  I  I  €>24,2  SAY  "Allowable  values  are:  B  SB  L  A  SA" 

I  I  +--ENDIF 

I  +--ENDDO 

I  lst=66 

I  nxt=75 

fusion  temperature  (softening  value,  h=l/2w) 

I  CASE  q=75 

I  €>  23,2  SAY  "Enter  ash  fusion  temperature,  softening  value" 

I  ok  = . f . 

I  +--DO  WHILE  .NOT.  Ok 

I  I  €>  17,32  GET  aft_S 

I  I  READ 

I  I  Ok=  (  aft_s>1000  .AND.  aft_s<3500  )  .OR.  ; 

I  I  READKEY()=12  .OR.  READKEY( ) =268  .OR.  aft_s=0 

I  I  +--IF  .NOT.  Ok 

I  I  I  €>24,1  CLEAR  TO  24,78 

I  I  I  €>24,2  SAY  "Value  should  be  between  1000"  ; 

I  I  I  +CHR(248)  +"F  and  3500"  +CHR(248)  +"F" 

I  I  +--ENDIF 

I  +--ENDDO 

I  lst=70 

I  nxt=80 

dgrove  grindability  index  of  coal  sample 
I  CASE  q=80 

I  €>  23,2  SAY  'Enter  the  Hardgrove  Grindability  Index  for  the 

I  coa I ' 

I  ok= , f , 

I  +--DO  WHILE  .NOT.  Ok 

I  I  €>  18.  35  GET  HRDCRV_CRD 

I  I  READ 

I  I  ok=(  hrdgr v_grd>=20  .AND.  hrdgrv_grd<=l20  )  .OR.  ; 

I  I  READKEY()=12  .OR.  READKEY( ) =268  .OR.  hrdgrv_grd=0 

I  I  +--IF  .NOT.  ok 

I  I  I  €>24.1  CLEAR  TO  24,78 

III  €>  24,2  SAY  "Value  should  be  between  20  and  120" 

I  I  +--ENDIF 

I  +--ENDDO 

I  lst=75 

I  nxt=85 

e  swelling  index  for  the  coal  sample 
I  CASE  q=85 

I  €>  23,2  SAY  'Enter  the  Free  Swelling  Index  for  the  coal' 

I  ok= . f . 

I  +--DO  WHILE  .NOT.  Ok 

I  I  €>  18,65  GET  FREE_SWELL 

I  I  READ 

I  I  ok  =  (  f ree_swe I  I >=0  .AND.  f ree_swe I  I <10  )  .OR.  ; 
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I  READKEY()=12  .OR.  READKEY( ) =268 

I  +--IF  .NOT.  Ok 
I  I  @24,1  CLEAR  TO  24,78 

I  1  @  24,2  SAY  “Value  should  be  between  0  and  9" 

1  +--ENDIF 
+--ENDDO 
I St=80 
nxt=90 


code  number  for  the  coal 
CASE  q=90 

@  23,2  SAY  'Enter  the  Code  Number  for  the  coal' 
ok= .  f . 

mcode_no=code_no 
+--DO  WHILE  .NOT.  Ok 

I  mcode_no=SUBSTR(mcode_no+REPLlCATE("  ", 20), 1,20) 

I  @19,18  GET  mcode_no 

I  READ 

I  mcode_no=UPPER  ( LTR  l M( mcode_no ) ) 

I 

i  see  that  the  code  number  is  unique 
I  +--IF  LEN(TR lM(mcode_no) )>0 
1  I  rc=RECNO() 

1  I  SET  ORDER  TO  2 

I  I  SEEK  mcode_no 

I  I  +--IF  rc=RECNO()  .OR.  EOFO 

I  I  I  ok=.t. 

I  I  +--ELSE 

III  @  24,0 

I  I  I  @24,2  SAY  "code  number  must  be  unique. 

I  I  I  +"Your  entry  is  a  duplicate." 

I  I  +--ENDIF 

II  SET  ORDER  TO  1 

I  I  GOTO  rc 

I  +--ELSE 

I  I  @  24,0 

I  I  @24,2  SAY  "Code  number  must  not  be  blank." 

I  +--ENDIF 

+--ENDDO 
I st=85 
nxt  =  95 

notes/comments 
CASE  q=95 

@  24,2  SAY  "Enter  any  pertinent  comments" 
ok= . f . 

+--DO  WHILE  .NOT.  ok 
I  @20,11  GET  cmmnt 

I  READ 

I  ok= . t . 
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I  1  +--ENDDO 
I  I  lst=90 

I  I  nxt=101 

I  I 

I  +--ENDCASE 
I 

d  out  what  key  was  used  to  finish  entry 
I  rdky=READKEY( ) 

I  rdky  =IIF(  rdky>255,  rdky-256,  rdky) 

I 

key  was  <Up  arrow>  or  <Pg  Up>,  go  to  last  (previous  entry) 

I  +--IF  rdky=4  .OR.  rdky=6 
I  I  q=lst 

erwise,  go  to  next  entry 
I  +--ELSE 
1  I  q=nxt 

I  +--ENDIF 

I 

<ESC>  key  was  hit,  set  q  to  ask  whether  they  are  done 
I  +--IF  rdky=l2 
I  I  q=101 

I  +--ENDIF 

ck  to  see  if  vol at i I e+f i xed  carbon+ash  =  100% 

I  ttiprox  "Volatile  +fixed_crbn  +ash 

I  +--IF  ttIproxoO 
I  I  cttiprpx  =STR( 1 1 ! prox .7 , 2  ) 

1  I  +--IF  cttiproxo"  100.00" 

I  1  I  @9,68  SAY  "not  =  100%" 

1  I  +--ELSE 

1  I  I  @9,68  SAY  " 

1  I  +--ENDIF 

I  +--ENDIF 

I 

ick  to  see  if  ultimate  analysis  +  ash  =  100% 

I  ttiult  "Oxygen  +sulfur  +nitrogen  +hydrogen  +carbon 

I  +--IF  ttIultoO 

I  I  cttiult  =STR( tt lul t+ash,7,2) 

I  I  +--  I  F  ct  1 1  ul  to"  100.00" 

1  I  I  @12,68  SAY  "not  =  100%" 

I  I  +--ELSE 

I  I  1  @12,68  SAY  " 

I  I  +--ENDIF 

I  +--ENDIF 

I 

done  with  entries,  make  sure  proximate  and  ultimate  equal  100% 

I  @22,0  CLEAR 

I  +--IF  q>100 

1  I  +--IF  cttiproxo"  100.00" 

III  @  22,5  SAY  "Proximate  analysis  (volatiles,  fixed 
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I  I  +"carbon,  ash)  must  total  100%" 

I  I  q=5 

I  +--ENDIF 

I  +--IF  Cttiul t<>“  100.00" 

I  I  f  23,5  SAY  "Ultimate  analysis  +  ash  must  total  100%" 

I  I  q=5 

I  +--ENDIF 

I  +--IF  q=5 

I  I  @24,5  SAY  "Press  any  key  to  continue..." 

1  I  +--DO  WHILE  INKEY()=0 
1  I  +--ENDDO 

I  +--ENDIF 

+--ENDIF 


•  if  done  with  entries  (q>100),  ask  to  accept,  change  again,  dr  quit 
I  I  +--IF  q>l00 

I  I  I  @22,0  CLEAR 

I  I  I  @22,5  SAY  "Accept  and  store  /  Change  values  "  ; 

I  I  I  +CHR(174)  +"  "  +CHR(175) 

I  I  I  ans="  " 

I  I  I  +--DO  WHILE  AT(ans , "AC" )=0 

I  I  I  I  ans="  " 

I  I  I  I  @  22,41  GET  ans  PICTURE  "!" 

I  I  I  I  READ 

I  I  I  +--ENDDO 


end 


if  operator  wants  to  change  again,  set  q  to  start  at  beginning 
+--IF  ans=“C" 

I  q  =  5 

+--ENDIF 


Of  checking  whether  done 
+--ENDIF 


end  of  loop  for  entering  coal  field  information 
+--ENDDO 


•  end  of  if  statement  for  editing 
+--ENDIF 


I  *  end  of  do-while  for  reviewing/editing/adding  entries 
+--ENDDO 


CLOSE  DATABASES 
RETURN 
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•  COALPRT.PRC  --  Last  update  10/25/88 

•  Copyright  (C)  1988  --  John  A.  Kinast 

•  All  Rights  Reserved 

•  written  expressly  for  CERL 


•  printout  of  coal  field  information 


•  check  to  see  if  any  records  present 
+  --IF  RECCOUNK  )=0 

1  @22,0  CLEAR 

I  @  22,10  SAY  "At  least  one  field  must  be  in  file  to  select  print  option. 

I  ans  =  ''  ■' 

1  @  23,10  SAY  "Press  any  key  to  continue..."  GET  ans 

1  READ 

I  ans="  " 

I  RETURN 

+--ENDIF 

•  if  running  stand-alone,  values  won't  be  defined 
+--IF  TYPE("topmgn")="U" 

I  topmgn=0 

+--ENDIF 

+--fF  TYPE( "btmmgn" )="U" 

I  btmmgn=58 

+--ENDIF 

+-- IF  TYPE( " I f tmgn" )="U" 

I  lftmgn=0 

+--ENDIF 

•  Store  current  record  being  display  so  it  isn't  lost 
rc=RECNO( ) 

•  set  up  var i abl es 
s  1 1  s  t  =  '  ' 

pg=o 


•  find  out  from  user  how  many  fields  to  print 
@  22,0  CLEAR 

@  22,4  SAY  "Print  field  that  is  Displayed,  fields  for  one  State, 
+"AI I  fields,  or " 

@  23,4  SAY  "Quit  (cancel  print)  --  Option  (  D  /  S  /  A  /  Q  ) 
+CHR(174)  +"  "  +CHR(175) 
ans="  " 

+--DO  WHILE  AT(ans , "DSAQ" )=0 
I  ans="  " 

I  @23,58  GET  ans  PICTURE  "!" 

I  READ 
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+--ENDDO 

*  if  quit  is  selected,  just  return  without  changing  a  thing 
+--IF  ans="Q" 

I  ans="  " 

I  RETURN 

+--ENDIF 

*  ask  questions  to  see  what  state  to  print 
+--IF  ans="S" 

I  @  22,0  CLEAR  TO  24,79 

I  f  22,5  SAY  "Enter  State  for  coal  information  printout:" 

I 

I  *  get  verified  state  entry 
I  St=SPACE(20) 

I  ok=.f. 

I  +--DO  WHILE  .NOT.  Ok 

I  I  St=SPACE(20) 

I  I  S  1 1  S  t  = "  " 

I  I  @  22,48  GET  st  PICTURE  "XXXXXXXXXXXXXXXXXXXX" 

I  I  READ 

I  I  rdkv=READKEY( ) 

I  I  +--IF  rdky=12 

I  I  I  RETURN 

1  I  +--ENDIF 

i  I  +--IF  LEN(TRIM(St))>0 

III  DO  chkstate 

I  I  +--ENDIF 

I  +--ENDDO 
I  mst=TRIM(st) 

+--ENDIF 

*  if  single  state  wanted,  go  to  first  entry 
+--IF  ans="S" 

I  SEEK  mst 

+--ENDIF 

*  if  all  fields  to  be  printed,  go  to  top  of  file 
+-- I F  ans="A" 

I  CO  top 

+--ENDIF 

*  set  escape  off  to  be  able  to  trap  it  with  inkey  statement 
SET  ESCAPE  OFF 

abt  = . f . 


*  print  message  about  printing  information 
@  22,0  CLEAR 

€>  23,10  SAY  "Printing  in  progress.  Press  <ESC>  to  quit  early... 
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*  set  up  printer 

SET  MARGIN  TO  I f tmgn 
SET  DEVICE  TO  PRINT 
prevst="\\" 

*  loop  for  printing  coal  information 
+--DO  WHILE  .NOT.  EOF()  .AND.  .NOT.  abt 
I 

I  *  first  check  for  keys  pressed 
I  c=l 

I  *  loop  until  no  more  keys  present 
I  +--DO  WHILE  c<>0 
I  I  C=INKEY() 

I  •  if  key  pressed  was  escape,  then  set  flag  to  abort  early 
I  I  +--IF  c=27 

I  I  I  abt=.t. 

I  I  +--ENDIF 

I  +--ENDDO 
I 

I  *  if  abort  flag  set,  jump  to  bottom  of  loop 
1  +--IF  abt 

I  I  LOOP 

I  +--ENDIF 

I 

I  •  advance  to  next  page  for  a  new  state 
I  +--IF  prevstostate 
I  I  st=state 

I  I  DO  chkstate 

I  I  hdg="Coal  field  information  printout  for:  "  +state  +"  - 

I  1  +st I  St 

I  I  pg=pg+l 

I  I  €>  topmgn,0  SAY  hdg 

I  I  €>  PROW(),60  SAY  "Page  "  +LTR  IMfSTR  (pg  ) ) 

I  1  prevst=state 

I  +--ENDIF 

I 

I  *  if  at  the  bottom  of  the  page,  skip  to  the  next  one 
I  +--IF  pg=0  .OR.  PROW( )+14>btmmgn 

I  I  pg=pg+i 

t  I  @  topmgn,0  SAY  hdg 

I  I  @  PROW(),60  SAY  "Page  "  +LTR IM( STR (pg ) ) 

I  +--ENDIF 
I 

I  *  pr i nt  the  entry 

I  €>  PROW()+2,0  SAY  "Location:  "  +location 

I  €»  PROW(),56  SAY  "Last  changed:  "  +DTOC( I  as t_chg ) 

I  €>  PROW()  +  1,0  SAY  "County:  "+county 

I  €»  PROW(  )  ,42  SAY  "Lat  :  " 

I  Cl =STR( lat i tude,7) 

I  @  PROW(),47  SAY  SUBSTRfcl  ,  1 ,3)  +"d  “  +SUBSTR ( C I  , 4 , 2  )  +"m  " 
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+SUBSTR(CI ,6,2)  +"S" 

@  PROW(),62  SAY  "Long:" 
cl =STR( long! tude,7) 

@  PROW(),68  SAY  SUBSTRfcl ,1,3)  +"d  "  +SUBSTR (c I , 4 , 2 )  +"m  "  ; 
+SUBSTR(  Cl ,6,2)  +"S" 

@1  PR0W()+1,2  SAY  "Proximate  Analysis" 

@  PROW(),49  SAY  "Moisture:" 

@  PROW(),59  SAY  moisture 
@  PROW(),66  SAY  "%  (as  delivered)" 

@  PROW()+1,5  SAY  "Fixed  Carbon:" 

@  PROW(),19  SAY  fixed_crbn 
@  PROW(),26  SAY  "%  Volatile:" 

€>  PROW( )  ,41  SAY  volatile 
@  PROW(),48  SAY  "%  Ash:" 

@  PROW( ) ,58  SAY  ash 
@  PROW(),65  SAY  "%  ---  (dry  basis)" 

@  PROW()+1,2  SAY  "Ultimate  Analysis  --  (dry  basis)" 

@  PR0W()+1,5  SAY  "Carbon:" 

@  PROW( ) , 13  SAY  carbon 
€>  PROW(  )  ,  19  SAY  "%" 

@  PROW(),26  SAY  "Hydrogen:" 

€>  PROW(),36  SAY  hydrogen 
@  PROW(),42  SAY  "%" 

@  PROW(),47  SAY  "Nitrogen:" 

PROW(),57  SAY  nitrogen 
@  PROW(),63  SAY  "%" 

@  PROW()+1,5  SAY  "Sulfur:" 

@  PROW( ) , 13  SAY  SUl fur 
@  PROW( ) , 19  SAY  “%" 

@  PROW(),28  SAY  "Oxygen:" 

@  PROW( ) ,36  SAY  oxygen 
@  PROW 0,42  SAY  "%" 

€>  PROW()  +  1,2  SAY  "Miscellaneous" 

@  PROW()+1,5  SAY  "Cross  Calorific  Value  (dry):” 

@  PROW(),34  SAY  HHV_dry 
@  PROW( ) ,41  SAY  "Btu/lb" 

@  PROW( ) ,56  SAY  "Rank: " 

@  PROW(),62  SAY  RANK 

€>  PROW()+1,5  SAY  "Hemispherical  Temperature:" 

@  PROW( ) ,39  SAY  af t_s 

^  PROW(),45  SAY  "F  (H=1/2W.  reducing)" 

@  PROW()+1,5  SAY  "Hardgrove  Crindability  Index:" 

@  PROW 0,3 5  SAY  HRDCRV_CRD 
@  PROW(),44  SAY  "Free  Swelling  Index:" 

€>  PROW(),65  SAY  FREE_SWELL 
€»  PROW 0  +  1, 5  SAY  "Code  Number:" 

@  PROW 0,1 8  SAY  CODE_NO 
P  PROW()+1,5  SAY  "Note:" 

@  PROW( ) , 1 1  SAY  cmmnt 
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I  *  skip  to  next  entry 
I  SKIP 

I 

I  *  if  only  one  state  wanted,  check  to  see  if  a  new  state  has  shown  up 
I  +--IF  ans="S" 

I  ‘if  skip  has  nxDved  to  a  new  state,  go  to  bottom,  then  one  past  for 
I  *  hitting  the  EOF  (end-of-f i I e) 

I  I  +--IF  mstostate 

III  CO  BOTTOM 

I  I  I  SKIP 

I  I  +--ENDIF 

I  +--ENDIF 
I 

I  *  if  only  the  displayed  field  is  wanted,  skip  to  bottom 
I  +--IF  ans="D" 

I  I  CO  BOTTOM 

I  I  SKIP 

I  +--ENDIF 
I 

+--ENDDO 

•  go  back  to  original  record  being  displayed 
COTO  rc 

*  move  back  to  top  of  page,  and  reset  values  back  to  normal 


E'JECT 

SET  ESCAPE 

ON 

SET  DEVICE 

TO 

SCREEN 

SET  MARC  IN 

TO 

0 

RETURN 
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COALSCR.PRC  --  Last  update  01/11/89 
Copyright  (C)  1988,1989  --  John  A.  Kinast 
Al I  Rights  Reserved 
written  expressly  for  CERL 


screen  drawing  for  coal  fields 


•  display  long  view  of  coal  field 
+--IF  Iv 
I  CLEAR 

I  @  1 ,0  TO  21 ,79  double 

I  @  5, 1  TO  5,78  DOUBLE 

I  €>  10, 1  TO  10,78  DOUBLE 

I  @  14, 1  TO  14,78  DOUBLE 

I  @  8 , 1  TO  8 , 7 

1  8,21  TO  8,78 

I  @  2,2  SAY  "Coal  field  location" 

I  @2,54  SAY  "Last  changed:  " 

I  @  3,3  SAY  "State:" 

I  @3,37  SAY  "Location: " 

I  @4,3  SAY  "County: " 

I  @  4,42  SAY  [Lat:  ]  +CHR(248)  +[  '  "] 

I  @  4,61  SAY  [Long:  ]  +CHR(248)  +[  '  "] 

I  @  6,2  SAY  "Proximate  Analysis" 

I  @  7,5  SAY  "Moisture:  %  (as  delivered) 

I  @8,8  SAY  " (  dry  basis  ) " 

I  @9,5  SAY  "Fixed  Carbon: " 

I  @9,26  SAY  "%  Volatile:" 

I  @9,48  SAY  "%  Ash:" 

I  @  9,65  SAY  "%" 

I  @  11,2  SAY  "Ultimate  Analysis  --  (dry  basis) 


@  12,5  SAY  "Carbon:  %" 

@  12,26  SAY  "Hydrogen:  % 

@  12,47  SAY  "Ni trogen:  % 

@13,5  SAY  "Sul  fur  :  %" 

@  13,28  SAY  "Oxygen:  %" 


@  15,2  SAY  "Miscellaneous" 

@  16,5  SAY  "Cross  Calorific  Value  (dry):  Btu/lb" 

@  16,56  SAY  "Rank: " 

@  17,5  SAY  "Hemispherical  Temperature:  "  ; 

+CHR(248)  +"F  (H="  +CHR(171)  +"W,  reducing)" 

@  18,5  SAY  "Hardgrove  Crindability  Index:" 

@  18,44  SAY  "Free  Swelling  Index:" 

@  19,5  SAY  "Code  Number:" 

@20,5  SAY  "Note: " 

•  display  values  only  if  present 
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+  --IF  .NOT.  EOFO 
I  @  2,68  SAY  last_chg 

I  st=state 

I  s  1 1  s  t  = "  '■ 

I  CX)  idstate 

I  st=st+"  -  "+stlst 

I  @  3,10  GET  St 

1  ^3.47  GET  local  ion 

I  @4,11  GET  county 

I  clat=STR( lati tude,7) 

I  lat_l=SUBSTR(clat,1,3) 

I  lat_2=SUBSTR(clat,4,2) 

I  lat_3=SUBSTR(clat ,6,2) 

I  @  4,47  GET  lat_1 

I  €>  4,51  GET  lat_2 

I  @  4,54  GET  lat_3 

I  clong=STR( long! tude,7) 

I  clo_l=SUBSTR(clong, 1 ,3) 

I  clo_2=SUBSTR(clong,4,2) 

I  clo_3=SUBSTR(clong,6,2) 


4,67 

GET 

clo_l 

@ 

4,71 

GET 

Cl0_2 

@ 

4,74 

GET 

Cl0_3 

@ 

7,15 

GET 

moisture 

@ 

9,19 

GET 

f i xed_crbn 

@ 

9,41 

GET 

volati le 

@ 

9,58 

GET 

ash 

@ 

12,13 

GET 

carbon 

@ 

12,36 

GET 

hydrogen 

@ 

12,57 

GET 

n i t  rogen 

@ 

13,13 

GET 

su  1  fur 

@ 

13,36 

GET 

oxygen 

@ 

16,34 

GET 

HHV_dry 

@ 

16,62 

GET 

RANK 

@ 

17,32 

GET 

a  f  t_s 

@ 

18,35 

GET 

HRDCRV_CRD 

@ 

18,65 

GET 

FREE_SWELL 

@ 

19,18 

GET 

CODE_NO 

@ 

20,11 

GET 

cmmnt 

CLEAR  GETS 

I  I  cur rec=RECNO( ) 

I  +--ELSE 
I  I  currec=0 

I  +--ENDIF 

I 

I  *  display  short  view  of  coal  fields 
+--ELSE 
I  CLEAR 

I  @  1 ,0  TO  4,79  double 

I  @  2,3  SAY  "Coal  Field  Information  Management  Program" 
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I  €>3,3  SAY  "Condensed  View  of  Coal  Fields" 

I  €>  2,69  SAY  DATEf  ) 

1  €>6,2  SAY  "State  Rank  County  Location" 

I  +--IF  .NOT.  EOFO 

I  I  cur rec=RECNO( ) 

II  i  =7 

I  I  +--DO  WHILE  .NOT.  EOF ( )  .AND.  i <20 

I  I  I  €>  i  ,3  GET  State 

I  I  I  €>  i ,  10  GET  rank 

I  I  I  €>  i  ,  18  GET  county 

I  I  I  €>  i  ,44  GET  locat  ion 

I  I  I  GLEAR  GETS 

I  I  I  i=i+1 

I  I  I  I  strec=RECNO( ) 

I  I  I  SKIP 

I  I  +--ENDDO 

I  I  GOTO  currec 

I  +--ELSE 

I  I  currec=0 

I  +--ENDIF 

I  €>21,0  TO  21,79  double 

I 

+--ENDIF 

RETURN 
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•  DBENVRN.PRC  --  Last  update  01/11/89 

•  copyright  (C)  1988,1989  --  John  A.  Kinast 

•  Al I  Rights  Reserved 


•  define  database  environment  for  the  system 


PUBLIC  fox,  ciipper,  ending 

•  define  ending  of  index  files  based  on  operating  environment 
endi ng=" " 

•  fox  is  .t.  if  run  under  FoxBASE+,  otherwise  .f. 

+--IF  fox 

I  endi ng=" . IDX" 

+--ENDI F 

•  clipper  is  .t.  if  run  under  Ciipper,  otherwise  .f. 

+-- I F  cl i pper 

I 

I  •  function  returns  index  file  ending  based  on  how  program  has  been  linked. 
1  *  returns  ".NDX"  if  ndx.obj  was  linked  to  produce  dBASElll+ 

I  •  compatible  index  files 

I  •  returns  ".NTX"  if  ndx.obj  not  linked,  which  results  in  standard 
I  "  CM  pper  i  ndex  files 

I  endi ng= i ndexext ( ) 

I 

1  *  readexit  function  with  .t.  as  parameter  sets  Clipper  to  use 

I  •  up-arrow  and  down-arrow  keys  to  exit  from  variable  READS 
I  c=readexi t ( . t . ) 

+--ENDIF 

•  if  nothing  was  assigned  by  other  two  routines,  it  must  be  running 

•  under  dBASE  III+,  meaning  ”.NDX"  (standard  index)  files  used 
+--IF  LENfendi ng)=0 

1  endi ng=" . NDX" 

+--ENDI F 

RETURN 
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-  IDSTATE.PRG  --  Last  Update  01/11/89 

-  Copyright  (c)  1988,1989  by  John  A.  Kinast 

-  Al I  Rights  Reserved 

-  written  for  CERL 


-  using  st,  get  state  name 


•  convert  state  entry  to  upper  case,  set  up  length  and  flag 
St=UPPER(LTRIM(TRIM(st))) 

S 1 1  S  t  =  "  " 

+--DO  CASE 
I  CASE  St='AL' 

I  St  I st  = 'Al abama ' 

I  CASE  St='AK' 

I  St  I st  =  'Al aska ' 

I  CASE  St='AR' 

I  St  I st= 'Arkansas  ' 

I  CASE  St='AZ' 

I  St  I st  = 'Ar i zona ' 

I  CASE  st='CA' 

I  s t I s t = 'Ca I i for n i a ' 

I  CASE  st='CO' 

I  St  I st  = 'Colorado' 

I  CASE  St='CT' 

I  s t I s t = 'Connect i cut ' 

I  CASE  st='DC' 

I  stlst='District  of  Columbia' 

I  CASE  St='DE' 

I  s  1 1 s  t  =  'De I  aware ' 

I  CASE  st='FL' 

I  s  1 1 s  t = ' F I  or i da ' 

I  CASE  St='CA' 

I  s  1 1 s  t = 'Ceor g i a ' 

I  CASE  St= 'HI ' 

I  St  I st= 'Hawai i ' 

I  CASE  st= ' ID' 

I  St  I st  =  ' Idaho' 

I  CASE  St  =  '  I L  ' 

I  stlst='lllinois' 

I  CASE  St= ' IN' 

I  s  1 1 s  t  =  ' I ndi ana ' 

I  CASE  St= '  I  A' 

I  s  1 1 s  t  =  ' I owa ' 

I  CASE  St='KS' 

I  St  I st  =  'Kansas  ' 

I  CASE  St='KY' 

I  St  I st  = 'Kentucky ' 
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CASE 

St='LA' 

St  1 

st='Loui siana' 

CASE 

St='ME' 

St  1 

st= 'Mai ne' 

CASE 

st='MD' 

St  1 

st='Maryland' 

CASE 

s  t  =  ' MA ' 

St  1 

st  =  'Massachuset  ts ' 

CASE 

st  =  'MI ' 

St  1 

s  t  =  'Mi ch i gan ' 

CASE 

St='MN' 

St  1 

st= 'Mi nnesota' 

CASE 

st= 'MS' 

S  t  I 

st='Mississippi ' 

CASE 

st= 'MO' 

s  1 1 

st= 'Mi ssour i ' 

CASE 

St='MT' 

S  1 1 

s  t  =  'Montana ' 

CASE 

st='NE' 

St  1 

s  t  =  'Nebraska ' 

CASE 

st= 'NV' 

St  1 

st='Nevada' 

CASE 

St='NH' 

St  1 

st='New  Hampshi re' 

CASE 

St='NJ  ' 

St  1 

st='New  Jersey' 

CASE 

s  t  = ' NM ' 

S  t  1 

s t  =  'New  Mex i CO' 

CASE 

S  t  = ' NY ' 

S  t  1 

s t  =  'New  York ' 

CASE 

s  t  =  ' NC ' 

S  t  1 

st  =  'Nor  th  Carolina' 

CASE 

s  t  =  ' NO ' 

St  1 

st='North  Dakota' 

CASE 

st= 'OH' 

St  1 

s  t  = ' Oh i o ' 

CASE 

st='OK' 

St  1 

s  t  =  'Ok  1 ahoma ' 

CASE 

st='OR' 

St  1 

s  t  =  'Oregon ' 

CASE 

st= 'PA' 

St  1 

s  t  =  'Pennsy i van i a ' 

CASE 

st  =  'RI  ' 

St  1 

st= 'Rhode  Island' 

CASE 

st='SC' 

St  1 

st= 'South  Carol i na ' 

CASE 

st='SD' 

St  i 

st='South  Dakota' 

CASE 

st='TX' 

S  1 1 

st= 'Texas ' 
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I  CASE  St='TN' 

1  St  I st  = 'Tennessee' 

I  CASE  St='US' 

I  St  I st  =  'Uni  ted  States ' 

1  CASE  St='UT' 

I  s 1 1 s  t  =  'Utah ' 

I  CASE  St='VT' 

I  St  1 st  = 'Vermont ' 

I  CASE  St='VA' 

I  stlst='Viroinia' 

I  CASE  st='WA' 

I  St  I st  = 'Washi ngton' 

I  CASE  st='WV' 

I  St  1 s t  =  'West  Virginia' 

1  CASE  st='WI ' 

I  s t I st= 'Wi scons i n ' 

I  CASE  st='WY' 

1  St  I s t  = 'Wyomi ng ' 

+--ENDCASE 
RETURN 
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•-  SETCOLOR.PRC  --  Last  Update  01/11/89 
*-  Copyright  (c)  1988,1989  by  John  A.  Kinast 
•-All  Rights  Reserved 

•-  routine  to  set  colors  based  on  database  entry 


•  reset  colors  to  desired  values  if  necessary 
+  --IF  F ILE( "colors .dbf" ) 
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Appendix  B:  United  States  Geologicai  Survey 
Coai  Properties  Data  Listing 

Coal  Field  Information  Printout  for  AK  -  Alaska . B-5 

Coal  Field  Information  Printout  for  AL  -  Alabama  . B-11 

Coal  Field  Information  Printout  for  AR  -  Arkansas . B-17 

Coal  Field  Information  Printout  for  AZ  -  Arizona  . B-21 

Coal  Field  Information  Printout  for  CO  -  Colorado . B-25 

Coal  Field  Information  Printout  for  GA  -  Georgia . B-31 

Coal  Field  Information  Printout  for  lA  -  Iowa . B-37 

Coal  Field  Information  Printout  for  ID  -  Idaho  . B-41 

Coal  Field  Information  Printout  for  IL  -  Illinois  . B-45 

Coal  Field  Information  Printout  for  IN  -  Indiana . B-49 

Coal  Field  Information  Printout  for  KS  -  Kansas . B-57 

Coal  Field  Information  Printout  for  KY  -  Kentucky . B-61 

Coal  Field  Information  Printout  for  MD  -  Maryland . B-93 

Coal  Field  Information  Printout  for  MI  -  Michigan . B-97 

Coal  Field  Information  Printout  for  MO  -  Missouri . B-101 

Coal  Field  Information  Printout  for  MS  -  Mississippi . B-107 

Coal  Field  Information  Printout  for  MT  -  Montana . B-111 

Coal  Field  Information  Printout  for  ND  -  North  Dakota . B-1 17 

Coal  Field  Information  Printout  for  NE  -  Nebraska  . B-127 

Coal  Field  Information  Printout  for  NM  -  New  Mexico . B-131 

Coal  Field  Information  Printout  for  NV  -  Nevada . B-135 

Coal  Field  Information  Printout  for  OH  -  Ohio  . B-139 

Coal  Field  Information  Printout  for  OK  -  Oklahoma .  B-147 

Coal  Field  Information  Printout  for  PA  -  Pennsylvania . B-153 

Coal  Field  Information  Printout  for  TN  -  Tennessee .  B-163 

Coal  Field  Information  Printout  for  TX  -  Texas . B-169 

Coal  Field  Information  Printout  for  UT  -  Utah  . B-173 

Coal  Field  Information  Printout  for  VA  -  Virginia . B-179 

Coal  Field  Information  Printout  for  WA  -  Washington  . B-203 

Coal  Field  Information  Printout  for  WV  -  West  Virginia . B-207 

Coal  Field  Information  Printout  for  WY  -  Wyoming  . B-239 


Location  Either  the  name  of  the  mine  or  a  description  of  the  type 

of  mine . 

County  County  in  which  the  coal  field  is  located. 

Code  Number  A  unique  number  given  to  the  entry  for  later 

identification.  (In  the  case  of  the  original  data,  the 
United  States  Geological  Survey  number  assigned  to  the 
entry . ) 

Latitude  The  north  latitude  of  the  coal  field  in  the  format 

DDDMMSS,  where  DDD  is  in  degrees,  MM  is  in  minutes,  SS  is 
in  seconds. 

Longitude  The  west  longitude  of  the  coal  field  in  the  format 

DDDMMSS,  where  DDD  is  in  degrees,  MM  is  in  minutes,  SS  is 
in  seconds . 

Rank  The  rank,  or  type,  of  the  coal; 

B  =  bituminous 

SB  =  sub-bituminous 

L  =  lignite 

A  =  anthracite 

SA  =  semi-anthracite 


Htg  Val 

Heating  value  of  the  dry  coal  in  Btu/lb. 

Last  Chg 

Date  the  entry  was  last  changed. 

Moisture 

Moisture  fraction  of  the  coal  as  delivered,  in  percent, 
from  the  proximate  analysis. 

Volatiles 

Fraction  of  volatiles  in  the  coal  on  a  dry  basis,  in 
percent,  from  the  proximate  analysis. 

Fxd  Crbn 

Fraction  of  fixed  carbon  in  the  coal  on  a  dry  basis,  in 
percent,  from  the  proximate  analysis. 

Ash 

Fraction  of  ash  in  the  coal  on  a  dry  basis,  in  percent, 
from  the  proximate  analysis. 

Carbon 

Fraction  of  carbon  in  the  coal  on  a  dry  basis,  in  percent, 
from  the  ultimate  analysis. 

Hydrogen 

Fraction  of  hydrogen  in  the  coal  on  a  dry  basis,  in 
percent,  from  the  ultimate  analysis. 

Sulfur 

Fraction  of  sulfur  in  the  coal  on  a  dry  basis,  in  percent, 
from  the  ultimate  analysis. 

Oxygen 

Fraction  of  oxygen  in  the  coal  on  a  dry  basis,  in  percent, 
from  the  ultimate  analysis. 

Nitrogen 

Fraction  of  nitrogen  in  the  coal  on  a  dry  basis,  in 
percent,  from  the  ultimate  analysis. 

Hardgrove 

Hardgrove  grindability  index  of  the  coal. 

Free  Swell 

Free  swelling  index  of  the  coal. 

Hemi  Temp 

Hemispherical  temperature  of  the  coal,  in  °F;  defined  as 
the  softening  temperature  at  which  H  =  1/2  W 

B-3 


Coal  Field  Information  Printout  for 
AK  -  Alaska 
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USIBELLI  COAL  MINE  NO  BOROUGH  D179396  635456  1483902  SB  11000  09/01/88 

24.00  46,80  39.90  13.30  62.60  5.00  0.40  17.60  1,10  0.0  2354 
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NORTH  SLOPE  BOROUGH  D184598  692256  1612322  B  13A50  09/01/88 

.70  35.60  60.60  3.80  78.10  <1.70  0.30  11.50  1.60  0.5  2300 
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Location  County  'Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Coal.  Field  Information  Printout  for:  lA  ”  Iowa 


12.10  38.00  43.80  18.20  63.70  4.40  2.60  9.70  1.40 


Coal  Field  Information  Printout  for 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  VaL  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Herat  Temp 
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UNDERGROUND  MINE  JOHNSON  W205315  375321  825151  B  13060  09/01/88 

5.80  39.10  51.00  9.90  72.60  5.30  -3.20  7.30  1.70  2.0  2057 


Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Location  County  Code  Nunioer  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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OUTCROP  POWDER  RIVER  D177825  A51435  1062803  SB  9050  09/01/88 

34.70  46.10  43.80  10.10  59'.00  3.30  0.90  25.20  1.50  0.0  2066 
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Coal  Field  Information  Printout  for 
NV  -  Nevada 


B-135 


Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 


Coal  Field  Information  Printout  for 


OH  -  Ohio 


B-13  9 


Coal  Field  Information  Printout  for:  OH  -  Ohio 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  VaL  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Herai  Temp 
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UNDERGROUND  MINE  BUCHANAN  W214765  371050  820A31  B  14050  09/01/88 

1.10  19.00  70.90  10.10  80.60  4.10  0 !  80  3.20  1.20  6.5  2480 
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SURFACE  MINE  DICKENSON  W211174  37-1151  821555  B  13490  09/01/88 
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UNDERGROUND  BARBOUR  W19<i953  390945  795937  B  12230  09/01/88 

1.60  31.10  48.90  20.00  67.80  4.50  1.50  4.80  1.40  8.5  2804 


Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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UNDERGROUND  MARION  W206584  39295A  801202  B  139A0  09/01/88 

2.70  36.10  57.00  6.90  78.50  5.20  0.90  6.90  1.60  8.0  2291 


CoaL  Field  Information  Printout  for:  WV  -  West  Virginia 
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Vn  -  Wyoming 
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Location  County  Code  Number  Latitude  Longitude  Rank  Htg  Val  Last  Chg 

Moisture  Volatiles  Fxd  Crbn  Ash  Carbon  Hydrogen  Sulfur  Oxygen  Nitrogen  Hardgrove  Free  Swell  Hemi  Temp 
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USACERL  DISTRIBUTION 


Naval  Facilities  Engr  Command 
ATTN:  Code  1652B  22332-2300 

Naval  Facilities  Engr  Service  Center  93043 
ATTN:  Code  241 

US  Army  HSC 

Fort  Sam  Houston  78234 
ATTN:  HSLO-F 
Fitzsimons  Army  Medical  Ctr 
ATTN:  HSHG-DPW  80045 

Tyndall  AFB  32403 

ATTN:  HQAFCESA  Program  Ofc 

Defense  Fuel  Supply  Center 
ATTN:  DFSC-PR  22314 

Defense  Tech  Info  Center  22304 
ATTN:  DTIC-FAB(2) 
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FORSCOM 

Forts  Gillem  &  McPherson  30330 
ATTN:  FCEN 

TRADOC 

Fort  Monroe  23651 
ATTN:  ATBO-G 

USARPAC  96858 
ATTN:  DPW 
ATTN:  APEN-A 

CEWES  39180 
ATTN:  Library 

CECRL  03755 
ATTN:  Library 

USAAMCOM  61299 
ATTN:  AMSMC-IR 
ATTN:  AMSMC-IS 

Walter  Reed  Army  Medical  Center  20307 

National  Guard  Bureau  20310 
ATTN:  NGB-ARI 


Chief  of  Engineers 

ATTN:  CEHEC-IM-LH  (2) 

ATTN:  CEHEC-IM-LP  (2) 

ATTN:  CECC-R 
ATTN:  CERD-L 
ATTN:  DAIM-FDF-U 

Secretary  of  Defense  22202 
ATTN:  P&L/EP 

CECPW  22310-3862 
ATTN:  CECPW-FU-M 
ATTN:  Library 

US  Army  Engr  District 
ATTN:  Library  (40) 

US  Army  Engr  Division 
ATTN:  Library  (12) 

US  Army  Europe 

ATTN:  AEAEN-ODCS  09014 

US  Army  Materiel  Command  (AMC) 
Alexandria,  VA  22333-0001 
ATTN:  AMCEN-F 


This  publication  was  reproduced  on  recycled  paper. 


